local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:[ItemBar,h2,"",exBarPredecessor] := "1SF"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkType] := "SF"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkType] := "FF"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkType] := "SS"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Item 1")
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	h2 := var_Items:AddItem("Item 2")
	var_Items:AddBar(h2,"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddLink("Link1",h1,"",h2,"")
	var_Items:[Link,"Link1",exLinkType] := "FS"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
	var_Bar := var_Chart:Bars:Add("Task:Split")
		var_Bar:Shortcut := "Task"
		var_Bar:[Def,exBarKeepWorkingCount] := true
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:[ItemBar,var_Items:[ItemByIndex,0],"",exBarSuccessor] := "2SF:-1,3SF:-1W"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010103"),SToD("20010106"),nil,nil)
	var_Items:[ItemBar,var_Items:[ItemByIndex,0],"",exBarSuccessor] := "2SF:-1,3SF:-1W"
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010101"),SToD("20010104"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010105"),SToD("20010108"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010109"),SToD("20010112"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:AddLink("L2",var_Items:[ItemByIndex,1],"",var_Items:[ItemByIndex,2],"")
	var_Items:[ItemBar,var_Items:[ItemByIndex,1],"",exBarSuccessor] := ""
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010101"),SToD("20010104"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010105"),SToD("20010108"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010109"),SToD("20010112"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:AddLink("L2",var_Items:[ItemByIndex,1],"",var_Items:[ItemByIndex,2],"")
	var_Items:[ItemBar,var_Items:[ItemByIndex,1],"",exBarPredecessor] := ""
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item 1")
	var_Items:AddBar(h,"Task",SToD("20010101"),SToD("20010104"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010105"),SToD("20010108"),nil,nil)
	var_Items:[ItemBar,h,"",exBarSuccessor] := "2SF"
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Name")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Item 1")
	var_Items:AddBar(h,"Task",SToD("20010101"),SToD("20010104"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010105"),SToD("20010108"),nil,nil)
	var_Items:[ItemBar,h,"",exBarPredecessor] := "2SF"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1AddLink(LinkKey) CLASS MainDialog
	// AddLink event - Occurs when the user links two bars using the mouse.
	oDCOCX_Exontrol1:Items:[Link,LinkKey,exLinkShowRound] := 3
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3,var_Column4 as IColumn
local var_Columns as IColumns
local var_Editor,var_Editor1 as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:HeaderHeight := 32
oDCOCX_Exontrol1:DefaultItemHeight := 28
oDCOCX_Exontrol1:BackColorLevelHeader := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exPSLinkColorEditSel] := RGB(160,160,160)
oDCOCX_Exontrol1:[Background,exPSBarColorEditSel] := RGB(128,128,128)
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Name")}:Width := 48
	var_Column := IColumn{var_Columns:Add("Start")}
		var_Column:Width := 48
		var_Column:Editor:EditType := DateType
		var_Column:[Def,exCellValueToItemBarProperty] := 1
	var_Column1 := IColumn{var_Columns:Add("End")}
		var_Column1:Width := 48
		var_Column1:Editor:EditType := DateType
		var_Column1:[Def,exCellValueToItemBarProperty] := 543
	var_Column2 := IColumn{var_Columns:Add("Predecessor")}
		var_Editor := var_Column2:Editor
			var_Editor:EditType := EditType
			var_Editor:EditType := MaskType
			var_Editor:Mask := ";;;rich"
		var_Column2:[Def,exCellValueToItemBarProperty] := 270
	var_Column3 := IColumn{var_Columns:Add("Successor")}
		var_Editor1 := var_Column3:Editor
			var_Editor1:EditType := EditType
			var_Editor1:EditType := MaskType
			var_Editor1:Mask := ";;;rich"
		var_Column3:[Def,exCellValueToItemBarProperty] := 271
	var_Column4 := IColumn{var_Columns:Add("(I)")}
		var_Column4:FormatColumn := "1 index ``"
		var_Column4:Position := 0
		var_Column4:AllowSizing := false
		var_Column4:Width := 20
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:ShowLinks := exShowExtendedLinks
	var_Chart:LinksStyle := exLinkSolid
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 362
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAutoEndInclusive
	var_Chart:AllowZoomOnFly := 0xfffffcc4 | exZoomOnFlyIncludeSelectedItems | exZoomOnFlyBarsOnly | exZoomOnFly | exZoomOnFlyCtrl | exZoomOnFlyShift
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:DrawGridLines := exAllLines
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Height := 15
		var_Bar:[Def,exBarCaption] := "<%=%C5%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Phase A"),"Task",SToD("20010101"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase B"),"Task",SToD("20010102"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase C"),"Task",SToD("20001229"),SToD("20010104"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:[Link,"L1",exLinkPDMDelay] := 1
	var_Items:AddLink("L2",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,2],"")
	var_Items:AddLink("L3",var_Items:[ItemByIndex,2],"",var_Items:[ItemByIndex,1],"")
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Name")}:Width := 48
	var_Column := IColumn{var_Columns:Add("Successor")}
		var_Editor := var_Column:Editor
			var_Editor:EditType := EditType
			var_Editor:EditType := MaskType
			var_Editor:Mask := ";;;rich"
		var_Column:[Def,exCellValueToItemBarProperty] := 271
	var_Column1 := IColumn{var_Columns:Add("(I)")}
		var_Column1:FormatColumn := "1 index ``"
		var_Column1:Position := 0
		var_Column1:AllowSizing := false
		var_Column1:Width := 20
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 256
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAutoEndInclusive
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Phase A"),"Task",SToD("20010101"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase B"),"Task",SToD("20010102"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase C"),"Task",SToD("20001229"),SToD("20010104"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:AddLink("L2",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,2],"")
	var_Items:AddLink("L3",var_Items:[ItemByIndex,2],"",var_Items:[ItemByIndex,1],"")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Editor as IEditor
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Name")}:Width := 48
	var_Column := IColumn{var_Columns:Add("Predecessor")}
		var_Editor := var_Column:Editor
			var_Editor:EditType := EditType
			var_Editor:EditType := MaskType
			var_Editor:Mask := ";;;rich"
		var_Column:[Def,exCellValueToItemBarProperty] := 270
	var_Column1 := IColumn{var_Columns:Add("(I)")}
		var_Column1:FormatColumn := "1 index ``"
		var_Column1:Position := 0
		var_Column1:AllowSizing := false
		var_Column1:Width := 20
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
oDCOCX_Exontrol1:AntiAliasing := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 256
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAutoEndInclusive
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Phase A"),"Task",SToD("20010101"),SToD("20010106"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase B"),"Task",SToD("20010102"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Phase C"),"Task",SToD("20001229"),SToD("20010104"),nil,nil)
	var_Items:AddLink("L1",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,1],"")
	var_Items:AddLink("L2",var_Items:[ItemByIndex,0],"",var_Items:[ItemByIndex,2],"")
	var_Items:AddLink("L3",var_Items:[ItemByIndex,2],"",var_Items:[ItemByIndex,1],"")
oDCOCX_Exontrol1:EndUpdate()

local var_Column as IColumn
local var_Columns as IColumns
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:[PaneWidth,true] := 0
var_Columns := oDCOCX_Exontrol1:Columns
	IColumn{var_Columns:Add("Name")}:Width := 48
	var_Column := IColumn{var_Columns:Add("Index")}
		var_Column:FormatColumn := "1 index ``"
		var_Column:Position := 0
		var_Column:AllowSizing := false
		var_Column:Width := 48
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("Phase A")
	var_Items:AddItem("Phase B")
	var_Items:AddItem("Phase C")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1CreateBar(Item,DateStart,DateEnd) CLASS MainDialog
	// CreateBar event - Fired when the user creates a new bar.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",DateStart,DateEnd,"","new")
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:HeaderAppearance := Etched
IColumn{oDCOCX_Exontrol1:Columns:Add("Index")}:FormatColumn := "1 index ``"
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarManualEndInclusive
	var_Chart:AllowZoomOnFly := 0xfffffcc4 | exZoomOnFlyIncludeSelectedItems | exZoomOnFlyBarsOnly | exZoomOnFly | exZoomOnFlyCtrl | exZoomOnFlyShift
	var_Chart:GridLineStyle := oDCOCX_Exontrol1:GridLineStyle
	var_Chart:DrawGridLines := exAllLines
	var_Level := var_Chart:[Level,1]
		var_Level:DrawGridLines := true
		var_Level:GridLineColor := oDCOCX_Exontrol1:GridLineColor
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("")
	var_Items:AddItem("")
	var_Items:AddItem("")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:OnResizeControl := exResizeChart
oDCOCX_Exontrol1:HeaderAppearance := Etched
IColumn{oDCOCX_Exontrol1:Columns:Add("Index")}:FormatColumn := "1 index ``"
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:GridLineColor := RGB(224,224,224)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20001228")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:NonworkingDays := 0
	var_Chart:AllowLinkBars := true
	var_Chart:AllowCreateBar := exCreateBarAutoEndInclusive
	var_Chart:AllowZoomOnFly := 0xfffffcc4 | exZoomOnFlyIncludeSelectedItems | exZoomOnFlyBarsOnly | exZoomOnFly | exZoomOnFlyCtrl | exZoomOnFlyShift
	var_Chart:GridLineStyle := oDCOCX_Exontrol1:GridLineStyle
	var_Chart:DrawGridLines := exAllLines
	var_Level := var_Chart:[Level,1]
		var_Level:DrawGridLines := true
		var_Level:GridLineColor := oDCOCX_Exontrol1:GridLineColor
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:Bars:Add("Task:Split"):Shortcut := "Task"
	var_Chart:Bars:[Item,"Task"]:[Def,exBarKeepWorkingCount] := true
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (wcount) + `wd)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=value format `ddd dd`%><fgcolor 808080><%=(value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=(0 array (0:=(longdate(date(value)) split `,`)) left 3) + ` ` +  ((2 array ((1 array =:0) split ` `)) lpad `00`) + (value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=(weekday(0:=(value-(value=end?1:0))) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(=:0) + ` ` + ((month(=:0) - 1) array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%ddd%> <%d%> <%mmm%><%=(value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=(weekday(value) array 'Sun Mon Tue Wed Thu Fri Sat' split ' ') + ` ` + day(value) + ` ` + ((month(value) - 1) array 'Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec' split ' ') + (value=end?` (` + (end-start) + `d)`:``)%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050628"),SToD("20050701"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=value=start?``:value%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:ResizeUnitScale := exHour
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%=date(value=end?value-1:value)%><fgcolor 666666><off -4><%=value=end?` ` + ((1:=int(0:= end - start)) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s) ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : ''):``%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%mmm%> <%d%><fgcolor 808080><%=value=end?` (`+(end - start) + ` days)`:``%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%mmm%> <%d%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABT0GACAADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADCOIwAFBIZhrE4ZRwGCQRRgyI43RhHUBzVIUBxDEaTZLlGY4NjSIYHThPMzyDRlEyBBqVKKoWLZMjiIY2RhJM7SBR0OROGQaRJrewZHDUMJiQjZVoVNTkNyxH6uYzoKSqVACLowTJNFZXDDkeR5JqcKBqChIEpKO5wRriAABVZoAA3Rq+AAuPBJIwYAAyXTIdTwThkBz3R6tchgOw7LxeZJpWbZOo0TgGFwTLDQNCifI7Vi6NJ1DdcKLNNx3tDBdpGXZ4JznGa8a7jN57dr+JQ7U6degACytKxLBeOprHMcA+GafxaAiBIUA0JgziGVJkGUGJIFyUYiBEN5VBsGxCEUEIcn0cAxBgWBijmM4Ekec57n0RwJBgBgCgCEZCC4BoBmAdBwgSApgkgMQcB8YQIEYERHAceBWBaBYRkGQgagaYY0HAaYHmICIBBwGJiEiFglEcBYYiYKoKhGQRCC6C5inQcBNgyYxIlIMoNGMWI2DCDAigiLgrgiYhohoHoIGIGBmByBwhEgXgXgOYQoEoCoDGCWAWAiAggAgDgDEcH5pGUHAoCWSR2F0cxOjSHQJEAQCAg=")
	var_Appearance:Add(2,"CP:1 -2 -2 4 4")
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelBack] := 0x2000000
oDCOCX_Exontrol1:[Background,exDateTickerLabelFore] := RGB(255,255,255)
oDCOCX_Exontrol1:[Background,exDateTickerLabelHAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:[Background,exDateTickerLabelVAlign] := RGB(1,0,0)
oDCOCX_Exontrol1:[Background,exDateTickerLabelHMargin] := RGB(4,0,0)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%mmm%><br><%d%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"gBFLBCJwBAEHhEJAAEhABaICg6AADACAxRDAMgBQKAAzAJBIYhiGgcYCgMZBSDeCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCL70WAFFr/DCgZThGgJHomMIhAhHAJwTQ8EytJqmKajCaRSDUJZkWZOIyjBd6a5tVbXEaVTAccxhOKeahvGo5Fred40TRINCWHI1d4NH69JbwMLbSgMIKFABXdhWFC+Ex9Kiea7kOqIJwyA5bY5kGRWDRkLzROAALJ1Cz7KqydpDYyAGbABagAYfPy8JzxHKNarfA5GZzuG4zdi8U41WCBdpnHQNS4KL6ndBbWrdFoiC8X4QnAOQ8B4dp6BONQoBoTBnEOKZIkoMYQi2JZECIb4mDYNoEgoIQ8k2PIIDEGBAEuO4UmcF5xHufgqiACAGAKAJfmKdJogGWRAACbYCk0KA0mCA5OFgRgSgSYRIDyYAymGCAsm0QhNAgdJmgeX5DgiYYImISIWCaCBhCMUgqEITJIjSZ4Lk4OJGDKDJjEiVgvDmYpTDILILGAc4gmSD5kAkBhChCY5YmYOwzA6GQmBSEpkkgShJDoZBkA4OQ6iUSB+FaFZlgkZJmhUDopEQAIOE6OYGDeGJmEmFg3hgTo5HoYIYGOWY2G6G9cCIaoLE6SZWE+HZngmZhPh1YJMkyBolkoBoCiCZbBn4O4ogmIoKiKaJJiKCA7ieY4+hKHwpEoVoW3MI4+H4PApkgaoeieagIGqHF3jocoPimaoKiaD4omeY5Gi6JhrAqRoyiYapjkYfg8iuCoOjqLprkqDo4DzcROkKLRsEsFpG4+I5OH4PQskqfpOjObQKn6TA9XEVpWjIbYLGaWoyG0Y5WlWNYtDuBpijibQ7HYfg9i6Cx2mqOpuksdpoD3cRenKO5vEuVp26wI5eH4PgvkuZp+j+cALmafA+XEZwGkCcIMCcCpAnAY5mH4PoxAwNwSkScRMDcEA+jCfBfBqRpxkwdwYgsZBzm8IpInITIXCaSdxHMKpKnKTI3C6S4lmgNJSkCT5slcNpNnODJnAMNZzkQJpvDYdAMDUTpQnQRQ7A2UANhuPRKFKZJ4iiVIOHUDRGDmU4higJJrGuQAEAQgI")
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelBack] := 0x1000000
oDCOCX_Exontrol1:[Background,exDateTickerLabelFore] := RGB(10,10,10)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := " <%mmm%> <%d%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ScrollBars := exVScrollEmptySpace | exVertical
oDCOCX_Exontrol1:[Background,exDateTickerLabelBack] := RGB(1,0,0)
oDCOCX_Exontrol1:[Background,exDateTickerLabelFore] := RGB(255,255,255)
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 96
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:FirstVisibleDate := SToD("20050620")
	var_Chart:LevelCount := 2
	var_Chart:DrawDateTicker := true
	var_Chart:DateTickerLabel := "<%mmm%> <%d%>"
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20050621"),SToD("20050628"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20050623"),SToD("20050703"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1AnchorClick(AnchorID,Options) CLASS MainDialog
	// AnchorClick event - Occurs when an anchor element is clicked.
	OutputDebugString(String2Psz( AsString(AnchorID) ))
RETURN NIL

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("before item")
	h := var_Items:AddItem("<solidline> <c><b>Bank Account 1</b></solidline><br>+ owner: String <r><a 1;e64=gA8ABzABvABsABpABkg8JABuABlAA+AAgAECMcTi4AMwAM4AjMGhEGOUVAA4AAwk8plcqihwAElg0wiUlOkOiUEgQvgcFhsKhkIhUQiUUnccj0gn0jmMagUlowAMNOpEfkMNkkmlEqrctjQmAAjAA5AA2sssHcbnkdq1Ln1QtVSjQAAEBA==>▲</a><br><solidline>+ balance: Currency = 0</solidline><br>+ deposit(amount: Currency)<r><a 2;e64=gA8ABjAA+AECMwAM8DABvABshoAOQAEAAHAAGEWjEajMGNoAMoAOgANERMgAOcHAAvAEJhcEh0Qh0Tg0CmkqMMFlUuhkxiMTisXjNCjk6EwAEYAHIAG1MjY7lUsnkwh8/nUClk5gwAAEBA==>▲</a><br>+ withdraw(amount: Currency)")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
	h := var_Items:AddItem("<solidline> <c><b>Bank Account 2</b><br> <c><fgcolor 808080>properties</solidline><a 1;e64=gArAAgABvAB3ABuABlAByAA6gYAKYAOkNABphIAM8RHgAMMRGIAHcLAA2AA0AA9jQAIIAHEsABCAB6mEyO01ABznBwnBrlcvJU4Os4NkwlsClstjctIoAIYAJoAMYAKkXk8wqMIltRlEtNVQABHABoAFNsRPABVABWo1XpMHAE+l88otTONWslasoAosbGFwjFqoton1owN7jZRAE3jdTI1jnIAJeQnxJyFqxWHtUKqdTr9/jcKv9fNtgj8bwUFuFbABOAFonlNM1xsGun0+0tFpt3h1TitfxWlt9ft41toyyM6nRIqQAMUZnxkAF3kJMjMhxUVtkT4FtpsylsqlQ+AEdh3kEwAEYAHMlAHGv8jjovjwA8kd5/n8uRg1FjDpP8jKGPIgSCOej6io+ziSIgginqGhyHIZBY8oilSCL++b+L4q0AKshUBgBESAgA==><r>▼</a></fgcolor><br><c><fgcolor 808080>methods</fgcolor><r><a 2;e64=gArAAgABkABlABwABvABzABpAB0AAoABhABthYAOoAN0RAA6gYAIcaAByksHjgAMYAPIAFIAHkVkIyAA7lA2AA0AA9ABnABBAA4n4AIQANVDoECoBFkQAJoAO9Dp9CIlDop2q0NABojNAJ4AKNDplAoBIpAAI4AphXo1qmVHp9pJ1dp10r8+oFzphSut4AFfldmsgArFLABKrcqt1cGFgxONKk9AGNkcYNYAON1p5GABsABVklcy54h91yMQhxYttzkdHy84plRwxZodmJNDtIxutH2g3zufrUdy9RrlCF8p0Ejz2XGuS2ViolDnk8H0wk/VEwAEYAHIAnHNxs2mPHi3VmJi64AgUEqMQiVcg0mi1RikWjEMjcdiUggkjjaTJMhCOpWlqXgAACAg><fgcolor 808080>▼</fgcolor></a>")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
	var_Items:AddItem("after item")
oDCOCX_Exontrol1:EndUpdate()

local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:TreeColumnIndex := -1
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:BackColorAlternate := RGB(240,240,240)
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:Columns:Add("Default")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("before item")
	h := var_Items:AddItem("<solidline><b>Header</b></solidline><br>Line1<r><a ;exp=show lines>+</a><br>Line2<br>Line3")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellSingleLine,h,0] := exCaptionWordWrap
	var_Items:AddItem("after item")
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20091231")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 96
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:StartColor := RGB(255,255,255)
		var_Bar:EndColor := var_Bar:Color
oDCOCX_Exontrol1:Columns:Add("Types")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
	h := var_Items:AddItem("W/h Pattern")
	var_Items:AddBar(h,"Task",SToD("20100104"),SToD("20100109"),"",nil)
	var_Items:[ItemBar,h,"",exBarPattern] := 6
	var_Items:AddBar(var_Items:AddItem("Original"),"Task",SToD("20100104"),SToD("20100109"),"",nil)
oDCOCX_Exontrol1:EndUpdate()

oDCOCX_Exontrol1:[Background,exScrollHoverAll] := -1

oDCOCX_Exontrol1:[Background,exScrollHoverAll] := RGB(1,0,0)

local var_Appearance as IAppearance
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABJYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCQXDcdRRDaBR7hGgoaj6JolSRFUgSABEEigNIxToOU4jFgeCR2C7AZBEbTENBtBIUKDsKA4IBiFxAVjQFpSNZlWzdN64LhuK47UrWbYiXZeN5XXblaTxPrAMBwKzrLwPBqHXrfeIYXhlDzVC7GchxTCsSxXCaPY7lWZZPRGN49ODMNBibL9EwSA6laToWpRVpGSYpVrGdT2KgNQxbL61YLse5ZTrGF5vXrONz4LBeAwHP7FXLwfJaVxFeaPZq7eT6LRfEKa5PmgdJ7DuLotkeL5Am0eA4F2ToOHeK5hnOco8HIfQ/GOUZumWeY9h2fx/lOJ5Im8bY+j+LpWnecYxH6YAHgWMB/hgeAGAYe4aheSZ5gGYJICGG4BByaA2BIfRgjYRgTgWihaAobhhggdgBG+IY1nYHoImCRgaBAeQiEiJgHHGIgVnoKoLmEOBFmUchjAiVgYF4XZoloOoImKaJNGyDpkAiJZdggZAZBYLxphmWQaEqDRYmkLhOhEZJZD4UoMFSGJ6FOFZhheEhDhYJZHGYW4PGWWYFlSDQjmkbhi0WBZaCcepmgmBgygsJtLHCCYnBkBh0hkWAJlYMIICeBgKHqBxhimdh3h+ZYWEoa4MigR4hh6IZnhoJheGuIpYD6DhumAOhFh+JJaCedoWgIaYGg2RYjCgahNnGIIbgmaZqigKI5jmaoVGqOIiEuKxjnobZjhGKwJCKNRoCSSpejaLorggeo8i8a51koVIwFaeoijOIRsEsApJhgIArC4ZIziaKg+lCM5tDsRoUjUXRqkqWIrhuSxulmKQtmkIYsjgY4LGqZIum4e4UAAOpRBQJQBICA==")
	var_Appearance:Add(2,"CP:1 1 1 11 -2")
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Milestone"]
		var_Bar:Height := 24
		var_Bar:Color := 0x2000000
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Appearance as IAppearance
local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABXYCg6AADACAxRDgMQBQKAAzQFAYZhmGSGAAGIZhXgmFgAQhFcZQSKUOQTDKMIRfeQwAiNf4hQKBMIjKKAShaHCVIDlSThYAKCQxDZNUCDNDYAR1FCeQACCCaDgOII/SZJMiRNIEQARBIoDRMM5DVLIZYHQjCcBkERtNQvHiBRQoSw6GAAGIaRDQMZSNZlWxMfx9XyeBoVeapFhbO4mZavEyCeTgfS3MBwLA3XZxTTxKIaD6KASbepEKh6VDNF52bYrA6XWy/T6PW7GDLmUY1H5UQpnfR4Uj/JyUT7KIS7bpMNTOWYfZ7XcxibKaZw2LDvIoxWL6UosH7UEpXfR/RLGcIVL7KKTLbpQNp8GwYXJWAMBJ+mubB3gaV5qhyNp/FIFhfmoLgPg+RZkmCeA7gWN46iSXJ4G2Mh6m+ax7nGdJ4G6MxegoXpaiSPJ/CmRZTnyJR3iAOAKASAZgGOfImBcD5iigXx7B6ZhVHAPhPHMWJDD0CohkSfQrEYE58ioGAPnKJBfggYg4goJIJmIaImCOA8gjQYg9kqMZAngNQMAOSIrByT5CmAcA/ksMYon8K4GEOfIsBjLQuESEYkFkHhKhIZJJCCLQYk+YpEGZNhBkSbgrkeM7viIT5zBCAA/kucZsn8LxHHOfI4BwT5ylQbU9kGLJ/CyBoJj4cYcCcKZUjYGwPkMDDlkqcZhgUMwPBKaIID8DQSReMoIVYRQgmiIgIn8MJlnMCB+VKaYUjpOxylgboaEbQQ3BuD5TBgfg8kuAgMncbobgOYJjDWTwCmCB1oGIVJ/DQCQDnyTAjCsYgujkP5MjqaJKhcDIaCSRwg3eMIGDyCxyAieA3k0FxRG8dgOCMVJxC8CJTnCVwmg+cxchgP5NCIUpcjeLZbHyfw1gkexYhteZSDjkQNAeSYDGyT5LCyUQ8EvL58DeSkrFwJ+ZmSG4/G+cxsh0PxNkKDJ0C+CQGkWOBthadpQniNBtDIMJ8DiSlWGMKYPnOCImD8TgiiidI6GyO41huQwdGcYorj1g5smIKZPkOBweC+SQjmCYA0i6bIRjYbgYFMNJvC0CBLCCCA9k2Iwik6SQOjWJQDEAQCAg")
	var_Appearance:Add(2,"CP:1 -6 0 20 0")
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Milestone"]
		var_Bar:Height := 28
		var_Bar:Color := 0x2000000
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:Bars:[Item,"Milestone"]:Height := 28
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Milestone",SToD("20010102"),SToD("20010102"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "..."
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
IColumn{oDCOCX_Exontrol1:Columns:Add("Def")}:[Def,exCellHasCheckBox] := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 96
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<%=%C0%><br>Start: <%=%1%><br>End: <%=%2%><br>State: <b><%=%CS0%></b><br>UserData: <b><%=%CD0%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Machine 1")
	var_Items:[CellState,h,0] := 1
	var_Items:[CellData,h,0] := "just some data"
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	h := var_Items:AddItem("Machine 2")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"B","B")
	var_Items:[CellData,h,0] := "just nother data"
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("<null>","<null>",nil,"+8","+8")
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("<null>",oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("new content","new title",nil,nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("new content","new title",nil,"+8","+8")
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("new content","",nil,128,128)
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1MouseMove(Button,Shift,X,Y) CLASS MainDialog
	// MouseMove event - Occurs when the user moves the mouse.
	oDCOCX_Exontrol1:ShowToolTip("","",nil,nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "<b><%=%C0 + ` ` + %9%></b><br>Start: <b><%=%1%></b><br>End: <b><%=%2%></b>"
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Task")
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 96
	var_Chart:LevelCount := 2
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(nil)
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010105 12:00:00"),SToD("20010107"),"T1",nil)
	var_Items:[ItemBar,h1,"",exBarHAlignCaption] := 18
	var_Items:AddBar(h1,"Task",SToD("20010103"),SToD("20010104 12:00:00"),"T2",nil)
	var_Items:[ItemBar,h1,"T2",exBarColor] := 255
	var_Items:GroupBars(h1,"T1",true,h1,"T2",true,27,0)
	var_Items:AddItem(nil)
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1ToolTip(Item,ColIndex,Visible,X,Y,CX,CY) CLASS MainDialog
	// ToolTip event - Fired when the control prepares the object's tooltip.
	oDCOCX_Exontrol1:ShowToolTip(oDCOCX_Exontrol1:Chart:[BarFromPoint,-1,-1],nil,nil,nil,nil)
RETURN NIL

local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Def")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exNoCreateBar
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20100101")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarToolTip] := "..."
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Task")
	var_Items:AddBar(h,"Task",SToD("20100102"),SToD("20100105"),"A","A")
	var_Items:AddBar(h,"Task",SToD("20100105"),SToD("20100108"),"B","B")
	var_Items:AddBar(h,"Task",SToD("20100108"),SToD("20100111"),"C","C")
	var_Items:GroupBars(h,"A",false,h,"B",true,39,nil)
	var_Items:GroupBars(h,"B",false,h,"C",true,39,nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:DrawGridLines := exRowLines
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:AllowLinkBars := false
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsCascade
		var_Bar:[Def,exBarCaption] := "only horizontal"
		var_Bar:[Def,exBarCaptionVOffset] := 18
		var_Bar:[Def,exBarCanMoveToAnother] := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010105"),"A",nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010104"),SToD("20010106"),"B",nil)
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010103"),SToD("20010105"),"C",nil)
	var_Items:[ItemBar,0,"<*>",exBarCanMoveToAnother] := false
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:LevelCount := 2
	var_Chart:DrawGridLines := exRowLines
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:AllowLinkBars := false
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsCascade
		var_Bar:[Def,exBarCaption] := "anywhere"
		var_Bar:[Def,exBarCaptionVOffset] := 18
		var_Bar:[Def,exBarCanMoveToAnother] := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010103"),SToD("20010105"),"A",nil)
	h := var_Items:AddItem("Item 2")
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010106"),"B","only horiontal")
	var_Items:[ItemBar,h,"B",exBarCanMoveToAnother] := false
	var_Items:AddBar(var_Items:AddItem("Item 3"),"Task",SToD("20010103"),SToD("20010105"),"C",nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Level as ILevel

oDCOCX_Exontrol1:BeginUpdate()
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 0
	var_Chart:DrawGridLines := exVLines
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:UnitWidth := 30
	var_Chart:LevelCount := 2
	var_Chart:[Level,0]:Unit := exMonth
	var_Level := var_Chart:[Level,1]
		var_Level:Unit := exDay
		var_Level:Count := 10
oDCOCX_Exontrol1:EndUpdate()

local var_Chart,var_Chart1 as IChart
local var_Column,var_Column1 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local var_CopyTo as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:MarkSearchColumn := false
var_Columns := oDCOCX_Exontrol1:Columns
	var_Columns:Add("Tasks")
	var_Column := IColumn{var_Columns:Add("Start")}
		var_Column:[Def,exCellValueToItemBarProperty] := 1
		var_Column:Editor:EditType := SpinType
	var_Column1 := IColumn{var_Columns:Add("End")}
		var_Column1:[Def,exCellValueToItemBarProperty] := 2
		var_Column1:Editor:EditType := SpinType
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 196
	var_Chart:LevelCount := 2
	var_Chart:ShowEmptyBars := 1
	var_Chart:FirstVisibleDate := SToD("20090101")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	var_Items:AddBar(var_Items:AddItem("Task 1"),"Task",SToD("20090102"),SToD("20090107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Task 2"),"Task",SToD("20090104"),SToD("20090109"),nil,nil)
var_Chart1 := oDCOCX_Exontrol1:Chart
	var_Chart1:StartPrintDate := SToD("20090104")
	var_Chart1:EndPrintDate := SToD("20090105")
var_CopyTo := oDCOCX_Exontrol1:[CopyTo,"c:/temp/xtest.pdf"]
OutputDebugString(String2Psz( "Look for C:\Temp\xtest.pdf file." ))
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local color,h as USUAL

color := 15790320
oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Debug := true
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:ShowLockedItems := true
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:[PaneWidth,false] := 128
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20151231")
	var_Chart:Bars:[Item,"Task"]:[Def,exBarCanMoveToAnother] := true
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[LockedItemCount,exTop] := 3
	h := var_Items:[LockedItem,exTop,0]
	var_Items:[ItemBackColor,h] := color
	oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := color
	var_Items:[CellValue,h,0] := "locked-top 1"
	var_Items:AddBar(h,"Task",SToD("20160104"),SToD("20160108"),"T1",nil)
	h := var_Items:[LockedItem,exTop,1]
	var_Items:[ItemBackColor,h] := color
	oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := color
	var_Items:[CellValue,h,0] := "locked-top 2"
	var_Items:AddBar(h,"Task",SToD("20160105"),SToD("20160109"),"T2",nil)
	h := var_Items:[LockedItem,exTop,2]
	var_Items:[SelectItem,h] := false
	var_Items:[ItemDivider,h] := 0
	var_Items:[ItemHeight,h] := 2
	var_Items:AddBar(var_Items:AddItem("un-locked item 1"),"Task",SToD("20160104"),SToD("20160108"),"T3",nil)
	var_Items:AddBar(var_Items:AddItem("un-locked item 2"),"Task",SToD("20160105"),SToD("20160109"),"T4",nil)
	var_Items:[LockedItemCount,exMiddle] := 3
	h := var_Items:[LockedItem,exMiddle,0]
	var_Items:[SelectItem,h] := false
	var_Items:[ItemDivider,h] := 0
	var_Items:[ItemHeight,h] := 2
	h := var_Items:[LockedItem,exMiddle,1]
	var_Items:[ItemBackColor,h] := color
	oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := color
	var_Items:[CellValue,h,0] := "locked-bottom 1"
	var_Items:AddBar(h,"Task",SToD("20160104"),SToD("20160108"),"T5",nil)
	h := var_Items:[LockedItem,exMiddle,2]
	var_Items:[ItemBackColor,h] := color
	oDCOCX_Exontrol1:Chart:[ItemBackColor,h] := color
	var_Items:[CellValue,h,0] := "locked-bottom 2"
	var_Items:AddBar(h,"Task",SToD("20160105"),SToD("20160109"),"T6",nil)
oDCOCX_Exontrol1:EndUpdate()

local var_Column as IColumn
local var_Editor as IEditor
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Minutes")}
	var_Column:SortType := SortNumeric
	var_Editor := var_Column:Editor
		var_Editor:EditType := EditType
		var_Editor:Numeric := exInteger
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem(10)
	var_Items:AddItem(20)
	var_Items:AddItem(30)
	var_Items:AddItem(40)
	var_Items:AddItem(50)
	h := var_Items:AddItem("sum(all,dir,dbl(%0))")
	var_Items:[SelectableItem,h] := false
	var_Items:[SortableItem,h] := false
	var_Items:[CellValueFormat,h,0] := exTotalField | exHTML
	var_Items:[CellHAlignment,h,0] := RightAlignment
	var_Items:[FormatCell,h,0] := "'<b>HH:NN</b>: '+ (int(value/60) lpad '00') + ':' + ((value mod 60) lpad '00')"
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20230326")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Task A"),"Task",SToD("20010102"),SToD("20010112"),"T1",nil)
	var_Items:AddBar(var_Items:AddItem("Task B"),"Task",SToD("20010120"),SToD("20010131"),"T2",nil)
	var_Items:EnsureVisibleBar(0,"T1")
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1,h2 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20230326")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task A")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010112"),"T1",nil)
	h2 := var_Items:AddItem("Task B")
	var_Items:AddBar(h2,"Task",SToD("20010120"),SToD("20010131"),"T2",nil)
	var_Items:EnsureVisibleBar(h1,"T1")
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:VisualAppearance:Add(1,"c:\exontrol\images\normal.ebn")
oDCOCX_Exontrol1:[Background,exChartCreateBar] := 0x1000000
oDCOCX_Exontrol1:[Background,exCreateBarHeight] := RGB(15,0,0)
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowCreateBar := exCreateBarAuto
	var_Chart:[PaneWidth,false] := 128
	var_Chart:LevelCount := 2
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Color := 0x1000000
		var_Bar:Height := 15
oDCOCX_Exontrol1:Columns:Add("Column")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddBar(var_Items:AddItem("Item 1"),"Task",SToD("20010102"),SToD("20010107"),nil,nil)
	var_Items:AddBar(var_Items:AddItem("Item 2"),"Task",SToD("20010106"),SToD("20010114"),nil,nil)
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1FilterChange() CLASS MainDialog
	// FilterChange event - Occurs when the filter was changed.
	local format as USUAL
	format := oDCOCX_Exontrol1:FormatABC("`lower(value) replace lower('` + value + `') with '<bgcolor 000000><fgcolor FFFFFF>` + value  + `</fgcolor></bgcolor>'`",oDCOCX_Exontrol1:FilterBarPromptPattern,nil,nil)
	oDCOCX_Exontrol1:Columns:[Item,0]:FormatColumn := AsString(format)
	oDCOCX_Exontrol1:Columns:[Item,1]:FormatColumn := AsString(format)
	oDCOCX_Exontrol1:Columns:[Item,2]:FormatColumn := AsString(format)
RETURN NIL

local var_Column,var_Column1,var_Column2 as IColumn
local var_Columns as IColumns
local var_Items as IItems
local h0 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:SelBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:SelForeColor := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:ColumnAutoResize := true
oDCOCX_Exontrol1:ContinueColumnScroll := false
oDCOCX_Exontrol1:MarkSearchColumn := false
oDCOCX_Exontrol1:SearchColumnIndex := 1
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 23
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:FilterBarCaption := "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:FilterBarPromptPattern := "and"
var_Columns := oDCOCX_Exontrol1:Columns
	var_Column := IColumn{var_Columns:Add("Name")}
		var_Column:[Def,exCellValueFormat] := 1
		var_Column:FormatColumn := "lower(value)"
	var_Column1 := IColumn{var_Columns:Add("Title")}
		var_Column1:[Def,exCellValueFormat] := 1
		var_Column1:FormatColumn := "lower(value)"
	var_Column2 := IColumn{var_Columns:Add("City")}
		var_Column2:[Def,exCellValueFormat] := 1
		var_Column2:FormatColumn := "lower(value)"
var_Items := oDCOCX_Exontrol1:Items
	h0 := var_Items:AddItem("Nancy Davolio")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "Seattle"
	h0 := var_Items:AddItem("Andrew Fuller")
	var_Items:[CellValue,h0,1] := "Vice President, Sales"
	var_Items:[CellValue,h0,2] := "Tacoma"
	var_Items:[SelectItem,h0] := true
	h0 := var_Items:AddItem("Janet Leverling")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "Kirkland"
	h0 := var_Items:AddItem("Margaret Peacock")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "Redmond"
	h0 := var_Items:AddItem("Steven Buchanan")
	var_Items:[CellValue,h0,1] := "Sales Manager"
	var_Items:[CellValue,h0,2] := "London"
	h0 := var_Items:AddItem("Michael Suyama")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "London"
	h0 := var_Items:AddItem("Robert King")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "London"
	h0 := var_Items:AddItem("Laura Callahan")
	var_Items:[CellValue,h0,1] := "Inside Sales Coordinator"
	var_Items:[CellValue,h0,2] := "Seattle"
	h0 := var_Items:AddItem("Anne Dodsworth")
	var_Items:[CellValue,h0,1] := "Sales Representative"
	var_Items:[CellValue,h0,2] := "London"
oDCOCX_Exontrol1:EndUpdate()

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:HeaderAppearance := Flat
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:SortBarHeight := 28
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:Columns:Add("Col 1")
oDCOCX_Exontrol1:Columns:Add("Col 2")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("219 Smith"),1] := "Ignacio 1234"
	var_Items:[CellValue,var_Items:AddItem("1666 County Road 309A"),1] := "897 Manassa"
	var_Items:[CellValue,var_Items:AddItem("38 Lone Pine"),1] := "Durango 11"
	var_Items:[CellValue,var_Items:AddItem("612 Jachim Street"),1] := "Lamar 222"
oDCOCX_Exontrol1:Layout := "MultipleSort=" + CHR(34) + "C1:1" + CHR(34) + ""
oDCOCX_Exontrol1:FilterBarCaption := "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? leafitemcount + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptCaseSensitive | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "12"
oDCOCX_Exontrol1:FilterBarBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:EndUpdate()

local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderHeight := 24
oDCOCX_Exontrol1:Columns:Add("Col 1")
oDCOCX_Exontrol1:Columns:Add("Col 2")
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellValue,var_Items:AddItem("219 Smith"),1] := "Ignacio 1234"
	var_Items:[CellValue,var_Items:AddItem("1666 County Road 309A"),1] := "897 Manassa"
	var_Items:[CellValue,var_Items:AddItem("38 Lone Pine"),1] := "Durango 11"
	var_Items:[CellValue,var_Items:AddItem("612 Jachim Street"),1] := "Lamar 222"
oDCOCX_Exontrol1:FilterBarCaption := "`<b>` + value + `</b><r><fgcolor=808080>` + ( matchitemcount < 0 ? abs(matchitemcount + 1) + ` result(s)` : ``)"
oDCOCX_Exontrol1:FilterBarPromptVisible := exFilterBarCompact | exFilterBarCaptionVisible | exFilterBarVisible | exFilterBarPromptVisible
oDCOCX_Exontrol1:FilterBarPromptType := exFilterPromptCaseSensitive | exFilterPromptContainsAll
oDCOCX_Exontrol1:FilterBarPromptPattern := "12"
oDCOCX_Exontrol1:FilterBarBackColor := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL

local var_Chart as IChart
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("19940804")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 256
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:DefaultItemHeight := 22
oDCOCX_Exontrol1:DrawGridLines := exRowLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:Columns:Add("Task")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exRowLines
	var_Chart:GridLineStyle := exGridLinesGeometric
	var_Chart:ResizeUnitScale := exHour
	var_Chart:[PaneWidth,false] := 48
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsTransparent | exOverlaidBarsOffset
		var_Bar:[Overlaid,exOverlaidBarsTransparent] := 70
		var_Bar:[Def,exBarCanMoveToAnother] := true
oDCOCX_Exontrol1:ItemsAllowSizing := exResizeItem
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[SelectableItem,var_Items:AddItem(nil)] := false
	h := var_Items:AddItem("Task 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"A1",nil)
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010105"),"A2",nil)
	var_Items:AddBar(h,"Task",SToD("20010104"),SToD("20010107"),"A3",nil)
	var_Items:[ItemHeight,h] := 64
	h := var_Items:AddItem("Task 2")
	var_Items:AddBar(h,"Task",SToD("20010107"),SToD("20010110"),"A4",nil)
	var_Items:AddBar(h,"Task",SToD("20010108"),SToD("20010112"),"A5",nil)
	var_Items:[SelectableItem,var_Items:AddItem(nil)] := false
oDCOCX_Exontrol1:EndUpdate()

local var_Appearance as IAppearance
local var_Editor,var_Editor1,var_Editor10,var_Editor11,var_Editor12,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Editor7,var_Editor8,var_Editor9 as IEditor
local var_Items as IItems
local h,var_Object as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 32
oDCOCX_Exontrol1:DefaultItemHeight := 36
oDCOCX_Exontrol1:HeaderHeight := oDCOCX_Exontrol1:DefaultItemHeight
oDCOCX_Exontrol1:SortBarHeight := oDCOCX_Exontrol1:DefaultItemHeight
oDCOCX_Exontrol1:Font:Size := 16
oDCOCX_Exontrol1:FilterBarFont:Size := oDCOCX_Exontrol1:Font:Size
oDCOCX_Exontrol1:ToolTipFont:Size := oDCOCX_Exontrol1:Font:Size
oDCOCX_Exontrol1:Indent := 26
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
	var_Appearance:Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:[CheckImage,Unchecked] := 16777216
oDCOCX_Exontrol1:[CheckImage,Checked] := 33554432
oDCOCX_Exontrol1:[CheckImage,PartialChecked] := 50331648
IColumn{oDCOCX_Exontrol1:Columns:Add("Editors")}:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellEditor,var_Items:AddItem("(ReadOnly)"),0]:EditType := ReadOnly
	var_Items:[CellEditor,var_Items:AddItem("(EditType)"),0]:EditType := EditType
	h := var_Items:AddItem("Value 1")
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := DropDownType
		var_Editor:AddItem(1,"Value 1",1)
		var_Editor:AddItem(2,"Value 2",2)
		var_Editor:AddItem(3,"Value 3",3)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownType)'"
	h := var_Items:AddItem(1)
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := DropDownListType
		var_Editor1:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor1:AddItem(1,"Nancy Davolio",1)
		var_Editor1:AddItem(2,"Andrew Fuller",2)
		var_Editor1:AddItem(3,"Janet Leverling",3)
		var_Editor1:AddItem(4,"Peacock Margaret",3)
		var_Editor1:AddItem(5,"Steven Buchanan",2)
		var_Editor1:AddItem(6,"Michael Suyama",1)
		var_Editor1:AddItem(7,"Robert King",2)
		var_Editor1:AddItem(8,"Laura Callahan",3)
		var_Editor1:AddItem(9,"Anne Dodsworth",2)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - single column list)'"
	h := var_Items:AddItem(1)
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := DropDownListType
		var_Editor2:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor2:AddItem(1,"Nancy Davolio",1)
		var_Editor2:AddItem(2,"Andrew Fuller",2)
		var_Editor2:InsertItem(3,"Janet Leverling",3,2)
		var_Editor2:InsertItem(4,"Peacock Margaret",3,2)
		var_Editor2:InsertItem(5,"Steven Buchanan",2,2)
		var_Editor2:InsertItem(6,"Michael Suyama",1,5)
		var_Editor2:InsertItem(7,"Robert King",2,2)
		var_Editor2:InsertItem(8,"Laura Callahan",3,2)
		var_Editor2:InsertItem(9,"Anne Dodsworth",2,5)
		var_Editor2:ExpandAll()
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - single column tree)'"
	h := var_Items:AddItem(1)
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := DropDownListType
		var_Editor3:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor3:[Option,exDropDownColumnCaption] := "Name¦Title¦City¦Phone"
		var_Editor3:[Option,exDropDownColumnWidth] := "312¦¦¦96"
		var_Editor3:AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		var_Editor3:AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		var_Editor3:AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
		var_Editor3:AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
		var_Editor3:AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
		var_Editor3:AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
		var_Editor3:AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
		var_Editor3:AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
		var_Editor3:AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - multiple columns list)'"
	h := var_Items:AddItem(1)
	var_Editor4 := var_Items:[CellEditor,h,0]
		var_Editor4:EditType := DropDownListType
		var_Editor4:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor4:[Option,exDropDownColumnCaption] := "Name¦Title¦City¦Phone"
		var_Editor4:[Option,exDropDownColumnWidth] := "312¦¦¦96"
		var_Editor4:AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		var_Editor4:AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		var_Editor4:InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
		var_Editor4:InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
		var_Editor4:InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
		var_Editor4:InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
		var_Editor4:InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
		var_Editor4:InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
		var_Editor4:InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
		var_Editor4:ExpandAll()
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - multiple columns tree)'"
	h := var_Items:AddItem(100)
	var_Items:[CellEditor,h,0]:EditType := SpinType
	var_Items:[FormatCell,h,0] := "value + ' (SpinType)'"
	var_Items:[CellEditor,var_Items:AddItem("(MemoType)"),0]:EditType := MemoType
	h := var_Items:AddItem(3)
	var_Editor5 := var_Items:[CellEditor,h,0]
		var_Editor5:EditType := CheckListType
		var_Editor5:AddItem(1,"Border",1)
		var_Editor5:AddItem(2,"Single",2)
		var_Editor5:AddItem(4,"Frame",3)
	var_Items:[FormatCell,h,0] := "value + ' (CheckListType)'"
	h := var_Items:AddItem("193.226.40.161")
	var_Editor6 := var_Items:[CellEditor,h,0]
		var_Editor6:Mask := "{0,255}.{0,255}.{0,255}.{0,255}"
		var_Editor6:EditType := MaskType
	var_Items:[FormatCell,h,0] := "value + ' (MaskType)'"
	h := var_Items:AddItem(65280)
	var_Editor7 := var_Items:[CellEditor,h,0]
		var_Editor7:EditType := ColorType
		var_Editor7:Mask := "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
	var_Items:[FormatCell,h,0] := "value + ' (ColorType)'"
	h := var_Items:AddItem("Tahoma")
	var_Items:[CellEditor,h,0]:EditType := FontType
	var_Items:[FormatCell,h,0] := "value + ' (FontType)'"
	h := var_Items:AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamYyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAwBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABGQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCAAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJDQNg/p4AAdoC")
	var_Items:[CellEditor,h,0]:EditType := PictureType
	var_Items:[FormatCell,h,0] := "value + ' (PictureType)'"
	var_Items:[CellEditor,var_Items:AddItem("(ButtonType)"),0]:EditType := ButtonType
	h := var_Items:AddItem(25)
	var_Items:[CellEditor,h,0]:EditType := ProgressBarType
	var_Items:[FormatCell,h,0] := "value + ' (ProgressBarType)'"
	h := var_Items:AddItem("Value 1")
	var_Editor8 := var_Items:[CellEditor,h,0]
		var_Editor8:EditType := PickEditType
		var_Editor8:AddItem(1,"Value 1",1)
		var_Editor8:AddItem(2,"Value 2",2)
		var_Editor8:AddItem(3,"Value 3",3)
	var_Items:[FormatCell,h,0] := "value + ' (PickEditType)'"
	var_Items:[CellEditor,var_Items:AddItem("(LinkEditType)"),0]:EditType := LinkEditType
	var_Editor9 := var_Items:[CellEditor,var_Items:AddItem("(UserEditorType)"),0]
		var_Editor9:EditType := UserEditorType
		var_Editor9:UserEditor("Exontrol.ComboBox","")
		var_Object := var_Editor9:UserEditorObject
	h := var_Items:AddItem(255)
	var_Editor10 := var_Items:[CellEditor,h,0]
		var_Editor10:EditType := ColorListType
		var_Editor10:[Option,exColorListShowName] := true
	var_Items:[FormatCell,h,0] := "value + ' (ColorListType)'"
	var_Items:[CellEditor,var_Items:AddItem(65280),0]:EditType := ColorListType
	var_Items:[CellEditor,var_Items:AddItem("(MemoDropDownType)"),0]:EditType := MemoDropDownType
	var_Editor11 := var_Items:[CellEditor,var_Items:AddItem(-1),0]
		var_Editor11:EditType := CheckValueType
		var_Editor11:[Option,exCheckValue2] := 1
	h := var_Items:AddItem(50)
	var_Editor12 := var_Items:[CellEditor,h,0]
		var_Editor12:EditType := SliderType
		var_Editor12:[Option,exSliderWidth] := -60
		var_Editor12:[Option,exSliderTickFrequency] := 10
		var_Editor12:[Option,exSliderTickStyle] := 2
	var_Items:[FormatCell,h,0] := "value + ' (SliderType)'"
	h := var_Items:AddItem(100)
	var_Items:[CellEditor,h,0]:EditType := CalculatorType
	var_Items:[FormatCell,h,0] := "value + ' (CalculatorType)'"
	var_Items:EnsureVisibleItem(h)
oDCOCX_Exontrol1:EndUpdate()

local var_Appearance as IAppearance
local var_Editor,var_Editor1,var_Editor10,var_Editor11,var_Editor12,var_Editor2,var_Editor3,var_Editor4,var_Editor5,var_Editor6,var_Editor7,var_Editor8,var_Editor9 as IEditor
local var_Items as IItems
local h,var_Object as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 16
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
IColumn{oDCOCX_Exontrol1:Columns:Add("Editors")}:[Def,exCellValueFormat] := 1
var_Items := oDCOCX_Exontrol1:Items
	var_Items:[CellEditor,var_Items:AddItem("(ReadOnly)"),0]:EditType := ReadOnly
	var_Items:[CellEditor,var_Items:AddItem("(EditType)"),0]:EditType := EditType
	h := var_Items:AddItem("Value 1")
	var_Editor := var_Items:[CellEditor,h,0]
		var_Editor:EditType := DropDownType
		var_Editor:AddItem(1,"Value 1",1)
		var_Editor:AddItem(2,"Value 2",2)
		var_Editor:AddItem(3,"Value 3",3)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownType)'"
	h := var_Items:AddItem(1)
	var_Editor1 := var_Items:[CellEditor,h,0]
		var_Editor1:EditType := DropDownListType
		var_Editor1:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor1:AddItem(1,"Nancy Davolio",1)
		var_Editor1:AddItem(2,"Andrew Fuller",2)
		var_Editor1:AddItem(3,"Janet Leverling",3)
		var_Editor1:AddItem(4,"Peacock Margaret",3)
		var_Editor1:AddItem(5,"Steven Buchanan",2)
		var_Editor1:AddItem(6,"Michael Suyama",1)
		var_Editor1:AddItem(7,"Robert King",2)
		var_Editor1:AddItem(8,"Laura Callahan",3)
		var_Editor1:AddItem(9,"Anne Dodsworth",2)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - single column list)'"
	h := var_Items:AddItem(1)
	var_Editor2 := var_Items:[CellEditor,h,0]
		var_Editor2:EditType := DropDownListType
		var_Editor2:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor2:AddItem(1,"Nancy Davolio",1)
		var_Editor2:AddItem(2,"Andrew Fuller",2)
		var_Editor2:InsertItem(3,"Janet Leverling",3,2)
		var_Editor2:InsertItem(4,"Peacock Margaret",3,2)
		var_Editor2:InsertItem(5,"Steven Buchanan",2,2)
		var_Editor2:InsertItem(6,"Michael Suyama",1,5)
		var_Editor2:InsertItem(7,"Robert King",2,2)
		var_Editor2:InsertItem(8,"Laura Callahan",3,2)
		var_Editor2:InsertItem(9,"Anne Dodsworth",2,5)
		var_Editor2:ExpandAll()
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - single column tree)'"
	h := var_Items:AddItem(1)
	var_Editor3 := var_Items:[CellEditor,h,0]
		var_Editor3:EditType := DropDownListType
		var_Editor3:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor3:[Option,exDropDownColumnCaption] := "Name¦Title¦City¦Phone"
		var_Editor3:[Option,exDropDownColumnWidth] := "312¦¦¦96"
		var_Editor3:AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		var_Editor3:AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		var_Editor3:AddItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3)
		var_Editor3:AddItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3)
		var_Editor3:AddItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2)
		var_Editor3:AddItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1)
		var_Editor3:AddItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2)
		var_Editor3:AddItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3)
		var_Editor3:AddItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2)
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - multiple columns list)'"
	h := var_Items:AddItem(1)
	var_Editor4 := var_Items:[CellEditor,h,0]
		var_Editor4:EditType := DropDownListType
		var_Editor4:DropDownAutoWidth := exDropDownEditorWidth
		var_Editor4:[Option,exDropDownColumnCaption] := "Name¦Title¦City¦Phone"
		var_Editor4:[Option,exDropDownColumnWidth] := "312¦¦¦96"
		var_Editor4:AddItem(1,"Nancy Davolio¦Sales Representative¦Seattle¦(206) 555-9857",1)
		var_Editor4:AddItem(2,"Andrew Fuller¦<b>Vice President</b>, Sales¦Tacoma¦(206) 555-9482",2)
		var_Editor4:InsertItem(3,"Janet Leverling¦Sales Representative¦Kirkland¦(206) 555-3412",3,2)
		var_Editor4:InsertItem(4,"Peacock Margaret¦Sales Representative¦Redmond¦(206) 555-8122",3,2)
		var_Editor4:InsertItem(5,"Steven Buchanan¦Sales Manager¦London¦(71) 555-4848",2,2)
		var_Editor4:InsertItem(6,"Michael Suyama¦Sales Representative¦London¦(71) 555-7773",1,5)
		var_Editor4:InsertItem(7,"Robert King¦Sales Representative¦Kirkland¦(71) 555-5598",2,2)
		var_Editor4:InsertItem(8,"Laura Callahan¦Inside Sales Coordinator¦Seattle¦(206) 555-1189",3,2)
		var_Editor4:InsertItem(9,"Anne Dodsworth¦Sales Representative¦London¦(71) 555-4444",2,5)
		var_Editor4:ExpandAll()
	var_Items:[FormatCell,h,0] := "value + ' (DropDownList - multiple columns tree)'"
	h := var_Items:AddItem(100)
	var_Items:[CellEditor,h,0]:EditType := SpinType
	var_Items:[FormatCell,h,0] := "value + ' (SpinType)'"
	var_Items:[CellEditor,var_Items:AddItem("(MemoType)"),0]:EditType := MemoType
	h := var_Items:AddItem(3)
	var_Editor5 := var_Items:[CellEditor,h,0]
		var_Editor5:EditType := CheckListType
		var_Editor5:AddItem(1,"Border",1)
		var_Editor5:AddItem(2,"Single",2)
		var_Editor5:AddItem(4,"Frame",3)
	var_Items:[FormatCell,h,0] := "value + ' (CheckListType)'"
	h := var_Items:AddItem("193.226.40.161")
	var_Editor6 := var_Items:[CellEditor,h,0]
		var_Editor6:Mask := "{0,255}.{0,255}.{0,255}.{0,255}"
		var_Editor6:EditType := MaskType
	var_Items:[FormatCell,h,0] := "value + ' (MaskType)'"
	h := var_Items:AddItem(65280)
	var_Editor7 := var_Items:[CellEditor,h,0]
		var_Editor7:EditType := ColorType
		var_Editor7:Mask := "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
	var_Items:[FormatCell,h,0] := "value + ' (ColorType)'"
	h := var_Items:AddItem("Tahoma")
	var_Items:[CellEditor,h,0]:EditType := FontType
	var_Items:[FormatCell,h,0] := "value + ' (FontType)'"
	h := var_Items:AddItem("gBHJJGHA5MIwAEIe4AAAFhwbiAliQwig7ixFjBQjRbjhljxwkB7kSFkiQkyblCllSwli7lzFmDQmTbmjlmzwnD7nQBnk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1YhgAEL5AgBhj/AAssMJthABFof4JDhIWCgYKDBATFT8M6hUIFAQAEQCCDwYF/QoWDZCRBgOKgIYHCQXMisKBAEQAAgOBZaSgQhjERANKQiZhIWamYyIBQ6FzcNKxQLJT4ADA4RjwObAAidBYdHwABQgUxMQYZEI0cD4OgnYKaKyzIRFNQx2YCKoFHScYD0ADXQwUAgwLoLQDqaCWBJoNQ9NBxFJTVQORgiarqSABbamGwtDAwBUWhQmqYALnOFQvGYPA4m6AwKhkZxKj2PBWC0SZCgmVY6CwIJgieBAniubRKHgaYgiwQwGiCfxGDWbBRmGZYIi2VwGnAexxGUSwUFiaR+hQPbBgOCoLCIHh4DAARCmQG4AlgNxuhwWgpFAEQUhuOxOk0NrhAaQoBmgPYdFSIZPjYGYbn+HhgEoAA7HMBIOjUM51AoPojHkEwVlET5slgWZtAEUBdjeSoeF6X5/rQRRSi+QB6GychsEAfZshKYABGQZorlAOgMBqEgAjYHB2jqSoigmYBLk+QZnBqGhggAEwImgbojgoIwSE+MxUHiS4REQCQWluD48B+JJoL+YQikuaI9AALgLmsJQfnSdAvDkCJEhIIIBgOegLEiPBqCyCAAjcCwgAAIJBhQBQkHGL4gDaNBokkZQMiwUAuioJQiCAQYsHMcwwEIeoigAYIogsGIwFKIYICIWguEoPgQhsawBASGgwCuJwLH8K4LigAIaDwbxMAOKxbisPwfASQATFASoagIEYwgcSoKGiAA/mEdIuiGPxCmObIlhMIJNHONxFH8EpPCGeB+noEpBBSSRjCsPZEiyKhgjAH5whSdLEjwDxjC8TxVEMFRzFWJJZBUSI0gQEQLBOM4VHkIg1D0CAJDQNg/p4AAdoC")
	var_Items:[CellEditor,h,0]:EditType := PictureType
	var_Items:[FormatCell,h,0] := "value + ' (PictureType)'"
	var_Items:[CellEditor,var_Items:AddItem("(ButtonType)"),0]:EditType := ButtonType
	h := var_Items:AddItem(25)
	var_Items:[CellEditor,h,0]:EditType := ProgressBarType
	var_Items:[FormatCell,h,0] := "value + ' (ProgressBarType)'"
	h := var_Items:AddItem("Value 1")
	var_Editor8 := var_Items:[CellEditor,h,0]
		var_Editor8:EditType := PickEditType
		var_Editor8:AddItem(1,"Value 1",1)
		var_Editor8:AddItem(2,"Value 2",2)
		var_Editor8:AddItem(3,"Value 3",3)
	var_Items:[FormatCell,h,0] := "value + ' (PickEditType)'"
	var_Items:[CellEditor,var_Items:AddItem("(LinkEditType)"),0]:EditType := LinkEditType
	var_Editor9 := var_Items:[CellEditor,var_Items:AddItem("(UserEditorType)"),0]
		var_Editor9:EditType := UserEditorType
		var_Editor9:UserEditor("Exontrol.ComboBox","")
		var_Object := var_Editor9:UserEditorObject
	h := var_Items:AddItem(255)
	var_Editor10 := var_Items:[CellEditor,h,0]
		var_Editor10:EditType := ColorListType
		var_Editor10:[Option,exColorListShowName] := true
	var_Items:[FormatCell,h,0] := "value + ' (ColorListType)'"
	var_Items:[CellEditor,var_Items:AddItem(65280),0]:EditType := ColorListType
	var_Items:[CellEditor,var_Items:AddItem("(MemoDropDownType)"),0]:EditType := MemoDropDownType
	var_Editor11 := var_Items:[CellEditor,var_Items:AddItem(-1),0]
		var_Editor11:EditType := CheckValueType
		var_Editor11:[Option,exCheckValue2] := 1
	h := var_Items:AddItem(50)
	var_Editor12 := var_Items:[CellEditor,h,0]
		var_Editor12:EditType := SliderType
		var_Editor12:[Option,exSliderWidth] := -60
		var_Editor12:[Option,exSliderTickFrequency] := 10
		var_Editor12:[Option,exSliderTickStyle] := 2
	var_Items:[FormatCell,h,0] := "value + ' (SliderType)'"
	h := var_Items:AddItem(100)
	var_Items:[CellEditor,h,0]:EditType := CalculatorType
	var_Items:[FormatCell,h,0] := "value + ' (CalculatorType)'"
	var_Items:EnsureVisibleItem(h)
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Items as IItems
local h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:NonworkingDays := 0
	var_Chart:FirstVisibleDate := SToD("20060917")
	var_Chart:[PaneWidth,false] := 64
	var_Chart:LevelCount := 2
	var_Chart:Bars:[Item,"Task"]:OverlaidType := exOverlaidBarsCascade
var_Items := oDCOCX_Exontrol1:Items
	h1 := var_Items:AddItem("Task")
	var_Items:AddBar(h1,"Task",SToD("20060926"),SToD("20061006"),"K1","K1")
	var_Items:AddBar(h1,"Task",SToD("20061005"),SToD("20061010"),"K3","K2")
	var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060927"),"T1","T")
	var_Items:[ItemBar,0,"<T*>",exBarColor] := 65280
	var_Items:[ItemBar,0,"<K*>",exBarOverlaidKey] := "Level0"
	var_Items:[ItemBar,0,"<T*>",exBarOverlaidKey] := "Level1"
	var_Items:[ItemMaxHeight,h1] := 26
oDCOCX_Exontrol1:EndUpdate()

local var_Chart as IChart
local var_Column as IColumn
local var_Items as IItems
local h1,h2,h3,h4,h5 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:AntiAliasing := true
IColumn{oDCOCX_Exontrol1:Columns:Add("Task")}:AllowSort := false
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Name")}
	var_Column:[Def,exCellValueToItemBarProperty] := 0
	var_Column:SortType := SortString
	var_Column:Visible := false
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20001231")
	var_Chart:[PaneWidth,false] := 48
	var_Chart:LevelCount := 2
	var_Chart:Bars:[Item,"Task"]:Pattern := exPatternSolid
	var_Chart:Bars:Copy("Task","Red"):Color := RGB(255,0,0)
	var_Chart:NonworkingDaysPattern := exPatternBDiagonal
	var_Chart:NonworkingDaysColor := RGB(224,224,224)
	var_Chart:LinksStyle := exLinkSolid
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AllowCellValueToItemBar := true
	h1 := var_Items:AddItem("Task 1")
	var_Items:AddBar(h1,"Task",SToD("20010102"),SToD("20010104"),nil,nil)
	h2 := var_Items:AddItem("Task 2")
	var_Items:AddBar(h2,"Red",SToD("20010102"),SToD("20010105"),nil,nil)
	h3 := var_Items:AddItem("Task 3")
	var_Items:AddBar(h3,"Task",SToD("20010102"),SToD("20010105"),nil,nil)
	h4 := var_Items:AddItem("Task 4")
	var_Items:AddBar(h4,"Red",SToD("20010102"),SToD("20010105"),nil,nil)
	h5 := var_Items:AddItem("Task 5")
	var_Items:AddBar(h5,"Red",SToD("20010102"),SToD("20010105"),nil,nil)
	var_Items:AddLink("L1",h1,"",h3,"")
	var_Items:AddLink("L2",h2,"",h4,"")
	var_Items:AddLink("L3",h3,"",h4,"")
	var_Items:AddLink("L4",h4,"",h5,"")
	var_Items:SchedulePDM(0,"")
oDCOCX_Exontrol1:Chart:ShowLinks := exShowExtendedLinks
oDCOCX_Exontrol1:Columns:[Item,"Name"]:SortOrder := SortAscending
oDCOCX_Exontrol1:EndUpdate()

local var_Column,var_Column1 as IColumn
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Images("gBJJgBAICAADAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEahkZAIAEEbjMjlErlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrlTiFdib/sNjr9gs1nldlrlqtFtt0stlguNvulyh91ud1vVVvNuvt7wFHr9/vl3luEwOJouIq+Dw2KyGRyWTymVy2XzGZzUuiw+lmej0gkUaksljaAnmDcD/cEbf7w1+ufD/fEbeB028bYAO3enB6AB++4EoA4A4sb4vHjXJ4nG5vKAHA4ca6XBjTAD/Y2x/eB/jcB")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("ToLeft")}
	var_Column:[Def,exCellHasCheckBox] := true
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("ToRight")}
	var_Column1:[Def,exCellHasCheckBox] := true
	var_Column1:[Def,exCellDrawPartsOrder] := "caption,picture,icons,icon,check"
oDCOCX_Exontrol1:DefaultItemHeight := 32
oDCOCX_Exontrol1:DrawGridLines := exVLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Caption")
	var_Items:[CellImage,h,0] := 2
	var_Items:[CellImages,h,0] := "1,2"
	var_Items:[CellPicture,h,0] := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
	var_Items:[CellValue,h,1] := var_Items:[CellValue,h,0]
	var_Items:[CellHAlignment,h,1] := RightAlignment
	var_Items:[CellImage,h,1] := var_Items:[CellImage,h,0]
	var_Items:[CellImages,h,1] := "2,1"
	var_Items:[CellPicture,h,1] := var_Items:[CellPicture,h,0]
	h := var_Items:AddItem("<b>HTML</b> <off 4>Caption")
	var_Items:[CellValueFormat,h,0] := exHTML
	var_Items:[CellImage,h,0] := 2
	var_Items:[CellImages,h,0] := "1,2"
	var_Items:[CellPicture,h,0] := oDCOCX_Exontrol1:ExecuteTemplate("loadpicture(`gCJKBOI4NBQaBQAhQNJJIIhShQAEEREAIA0ROZ6PT0hQKYZpIZDKBJkIgKByN5mNJsMsKPABVqXBI4KjrD7HL6GWKPJKiCIhMiySidKxbOzZZJWMLsGL2FqyLjZMonNa2CyiZDOUqsQqUEq0ZCNISFXDIFxzZ4hUrbdrefZ/fz3ZgzZ75Tz3XjvHZnZznPieb55AKgAqmRyOOzEhR7XirWaWQQMTa+QIhDbZOZAAoYUCPDAQG7FXI4JRrNCoIRdPyyFr0AYifDUKZ+PCufK4RReALLUbtdBHSrGTCCNKqT4MbRqUxxQx+CAAEQ2VCBbxqGaLYDZNgzFbCbLDarRCrqMYMM6cWqpHKUDqhZjnVijEoLcp0FCjVg2OYhTjN/QWk4bo4iseBsAcABIDoPA5g2HgADIkQfDCNxwkEQYnFmAIAB4OJHGcKAPioGRKFKdh2g6UB8iiZ5QkYQp3gKWhDlsWYmAARBcgCIAUniVpmiSA5AF3A4wG8P41nGWwDDAW4MAAIpSG+bRzBoGx3AeCJhh6C4ljCUJGnSRBUFKAIQA6EgIHMWBoHqYgAngHJDCALBmhCCAfHOARAScUBvAmc5zHYXxoguXQ8DEMIAH8dI8HmP4/AyQJAEAYAoHqRByEQGJiECBAzAkKIpBYNIcikAp8kcZhDn4EBChmUoMgqHIqhiWoIgaDImgyVQImaRw/F0EZGCcSw3DaM4Kn6GBBhwYYZDGZo3C+RgOAmNQnhYeYqgsTZenEVgSFYLo2CydhGg4OROF2HJjlydR7i+cJjDGFo8BgHgVl4Po+DufJRgcbQOlkCxyKuCJNAsdwIhSC4mgieYKkeHJWD0Ih8BQaYYkkMYppwTg0EsFhJC0SxEkgeodDSFpTheV5SDgLBIieRIigyVo5CeOpymoWhtEQfRACMR4zE2KxRnsV5dF2ehFCeC50G+GBkBiZgaCUGYnBySY+BsdIuEkJJJDSSRsjGeYqEWOhliYVYOHWDYbFuNhFmcS5siqbZrnGLYOh0DpPhyXo7D8d4ZHGXR1CcdRAnsMh7GELwIHiSx7CiXY0HYNZ1nOcoPg0SB+CWLwwGqUpbFAQJwEeEImlCVQwk4cJxAiFRIhMS4ulGYRRlmMQVDEHZxG8YxXhIaQSniLhIiaGwnDiJZGicZYnjeZw8D6OoSkWEIthwI4emudwtGwepNhuLQ3F8Zojm4bQrhALo0D0HZwCcJwoimeI0ASWR6CAJkJQORfAiFcLIXgahaiGCgMsKIpw8DPH8H4Pj2BhjrBMGQGYfxFjuEGIsB4rxbg+DSFsPAxBtChHoAQaYmRojVG0D0e6JALjVD2K0F4qxfjjGyPIRY/QXi1AOAILwFQGgOF8KYDwOgdBsHmCYcobRtjIHoGgZAmBgi7HgPcWoHxTAmCQCcVwTgDB+FYJgfQMAOj0F2PoZgkRMjeKQLkWATwdDzEkPMF4FxzAXDGJYfAlgPAuB+FkeIWxuizC0LkUwvQbD9ByHIDouxvBCBgCMCAvh4CXCMEgSA0BJDEH+AsfwMgfjhDeL0Ro/xkgvH4JMXA7RYjyAONgPAWhfjyCuBEcAFRSAWE4BIOwEAUgTCaIYfA4wSBUAcAsDowQOBFA4J0Hg9h2B4EmCQTYVBdB0FwIwU4rByjJGmHIRQ8gJAKB4IoZgShaDKAQOUIolQkjVBuGoSw6hugaFaJoeoWgajaDKDoO4dB5j0FcJ0Zw1Ang3CQDEdgNQnA6EmHgGw4QuCiCSAKFIXBgilEwGcLAZAtDmC0N0WgLhaApFiK0HgfxniuGKP4GIvhrhhGgHEZgaRtB5GSBUcIhg5BnHkOAeQFB5A6DiEEao2xoDHH0KIQ4bxYBfFEP8RogB5BfA8AQHwvwqAZBIBURgCgwgPAqAkKYCgfgTHCBwDIegcgjFUDQXQPQzA4DsCkDwnRABNAwE8OgTw5C6AkJEPgPRSg+DqCANoMRBjuHUKEJglQWDrHYOATg3BuDGDWEMa4CQbj3HMB0Z4Pw5jLFuCAWYsB/D2DgBEUQmB1iuDEMkfI0hUCyEkPIfwihKgqGsGobIGhNhfFGGoZY6gDDuGWDceANA1A2DyDUM4txaA/EwG0bo0wTDXEcH8Sg/BcD2GSHQC4pgtiuGOOkNIRg3hbG+MIGYjhzgaBeHwL4FgHAMAYFIfgJh4nJBQGkfAwRNiFAiO4KIlhoiKFiOoO4EwPiYGONUE4RATg6BOMcUwEApgZGmP4X4lxnjYGaLIZg7RNirH6FQG47xZCAC6OQLK5B1BYF8LgOQZAqh0FqGcBo/xMhpE6HsXomQwBKCwIcfA6w/DxA+IURAIxwgmBSCMKoJgOhFD0JMeIkQdhREwFAEQKRFioAYKkJIqQlhpBYFEPYUQui0GCGgFI9BlCOAUDoS4nRhA7HOOkFYdguhgEgGYUgZB2DeE6IIYIMQEgyAiPYHgYgnBlFiNsPYghKiODqISfddhPgVEOCQE4hg5iWHWPEfwfB3BgFYPkAIWQPAOC8BIb1MwrD+QsNEQ43ACAMAKGUQgsBhBoHCGUSNrxBBoEqNgGo8QMAJF+MMOwRxGCOFUBwHYdhODvDwMEBILgk21AKKkOI6RrgyD6LIDoJxNjkDUOQF4yAXgoC4FMXgqhKCiE4KACQow9D5CoJgLQiA9CwEMLUYwOxmhAFaEAdoSwdBBF0CEPQEWWDrGOBoEgGhTAaDyBsPoNgXA4CmHIWw+guCDCSJsNIjxsgADcNQPg2hxC2FKLACo2hNDFEMMcKw/BeCcE6LYXoGRvDJGCN8GIxgUjYAyOUbg6BpDrB0OYWw5AgjtGSOoEofAgjRG2NgY4+RRCfBeKUN4qQvi7H+HAYAchwCOCWAcQQZBBFiG4EIUYww3CFFuEQSgRAlBdDMIwCQiRrCMGCMcIwxhuiKDeE0PAlxCC8GFZQS4YhIgaEkJYS43hLAxE8EkTodQUBbBWMcHoNxy0lHqOETYyAeDeD4I0AQlRhD0G2E0O4PgKCjHeEoSgmBKCGEsBUS4vxUA8C6M0K4ox7irD+O0VouhfD7FUA33I+gmiXE0IsLY1gtipG0CQbQLQPjFDuDQHw2RtjFGsK0bw4x9j0CcO8N4/RtBnhSgvAcBehmAOh0ANgiAhAnhih8gwh1gbhugRhSBRhDhjh2Bvgyhfh3gPhThOBIBOA6B9gsAYAah+BdhlBWBtAuBoBThtB8gnhFheAlhcByh6BKhvAahNBnh5B1gJB1g+hCAsgAAbB1gOguAJhIAoAmhFBvqzACABh0BlgFggA6CaBvBQA7BDEHAaA0AABoAcgGBEACg5AAgYgZgLAIBKgFBBhWh9AggCAIBoBNgAANA9AJhwABBxBwAKAYAAALCJu9ADAYAFBLExBEAiBEgmBEgxBEANBENbhmgJh5gJBNgJgzgJBfgRAvAhpKhnAQg5AIpkARASA/ASKGAPBJhZBIAdBJAbARh7n4BIhshkAnAZDVgkBZAUg5AWh5AVB5AEgFAbBFA4BFACglA5hlAfAVAChVAtBVAig1AQh1ABBNB+gaAcgUA7AqAbAWgTg2gfB2gSB9AIBdA1BDh2BHAnBdAZg6Apgdh+h0g7lCBoAXh3BJBugahkBwBihkBkAsBYgtg/h7gNATBNgkhIgUhBg0gzI6BZgJRJglhvAvARgrAtBrALBbBFh2BxB2BZh9hFAcgOAcAdAcgCgcBzhcAVB7h9g5BlgxhohsArgDh5A8heA8BKh8hMB8gzB8APgPBmAdByAShQAVgUAWMMAaAThuATgpAWhNASgLARB3ASAwg+AsEwhiAoimBTBxhUAJhEAJhVhJBPhSBTBSBjgyhvBPlWAbgUgfhRhYBUAkAoBTAoBQgrgygfyhgTBShXBSgwhUh0hWgKhTguhQBphRAdhWAjhoBvg1gQA0g0A1AKACAehLgegzgrgmhcAmBahmB+A4AihzAhhLA6ArAFBrAfAbAyhbAPh2hYB7BzB8AOBDgwhTg+hnALAXB8hXBph3AxAPA/BPA2gLg7A8hxg+AlAXANB9ARB+A6B+h5gBgEBAg9BLhFBBAUghAWAhANhhhsgRgBARBvgjAUgiALhjBpBig8hjhHgSA1ASBqgvA4gkhzAmgkglhRgnB7hlh8BKA0hNgxhMBtg7guh5gjAzhPAtB/BJgBBmhhBvAdhDAighg7g2glAzBlg+AVhUAVAphVAHhqURAGhvh7g0AgAahvA2FigMg2BhhaBrg6AMAegTA6AVi5B6BlgehNgMgoA9gigMAZA/hBgMgGg+hfgbAvAegSgbApgegXhZhqBagzBYgogfgwB/Cwg7hgh/hDA/gTg5B+gNh/gXh6B8hbh8B/hEhfASg2h/BHh6BfhZBbhuAjB/g9h7BbBth0h/gbh2Ayh/hAh+h/gnh/Ajh3AwgnA/gigPBzBPBVBegigfA1h8BPhshr1HgNhvAxB/hoBdgGgBhZh3sUhMh0gmh1hLg9hIgchQB7BthugQh5hbgugth6BTgLi/ALBkocoPgCA/BQBfhmh+hXhzA/hzh+g7B1hbgch/heh4gvhEg3hsBfBOgbA2B9ArhrANhPTSKXAMg7A+Bhh4AfgZh/AVhdg/hzB7BTBsgfh5B+gdhZh/g7oQBogSh/BMrPhUhYBshvheBfA9AThph7ANhvhNgog/hZBNg/hdhvgIAxhjB2hHBhhOBtg1gPBCg3hZBDAmhDg0gfhNhAg8xMhgBiBvkig7BGgKBHBDBfBJhDBWhPg6BPxKAvBOBUhPB5hMhLhAh0mXBXAFhhB/A3hXBIhwB9AAgUBKg4AHA8AMgdgDhuB8hGghhcACgUAAgOA4AAA8AQABh2BQAegHA2BOB9BYhxhrBAA/hfg7hah4BCBrAxgABkAdAcK4BtgsAshdhZCSAVglgFgbASgeB3AQAPhNhIFJ2TBnhahchDBBh9gQBogABSAlhhBUgbBLANBvA+hbh+gAgWBzB5BXBWhFh/knAAADgLAkgiAggqAsAEhigrA1g2AKAqgKBfAZgdh9g2BbhugjhUgCgtgBALAtAYy+AWhEgmgAhFgSAaT4gAASgaATAahIgxACB9ghhGgfgmBoAEB4gIg/ANBagxAkhGBRA0gs3yBaBjTNAFBCBFBghCACAJAlhFh+AAAEgCAQgQg+h2g7Bbhdgdgdhdhxh7gGvUhbBHhah/B5ATAzh3BOtAWchuh3hOA9h3XvAfgbh0hfh8Brg6hegDB9BtnWDQByA4gkAGJIAZAEgcgFh8gvBJBSAdh0BLhqBLACAABHBtgwB2x8yngsg+gAByA2gAB8hxhvh6Byg+AFBp4nBShMgmBzANgAB8ACBZADARBLPVhQh7uKBOg/B7hqBUgphbA+AfALAygQYohXBZi2AThYhcAeBPhAuwhdgIBEgiB7B9YzhDA0AvAthIBAg8AeBfApAohKA/B2BRA+BYm/gGBCguAG5JhAhjZLAgAvgvhPg1gYgehmAbgLZQhDAjAjgjgOh5heAxzgABhx5Wgig0AfgQA/B13iBgBchVgrhXgVXFhbh9gKBdgugUAbXDgygsg+A/B+B8AqA6g6hahbBsANBmA/hCgmhegeSVgeADBwB+BKg+BnA0hwBxBihFh7BxBxAxAIgGACAiAYAMAKA/BPgnguAMgPBbBngak8B+hsgqAVBag2hnBOAoBWAJhYgsA2AchvAHhIEMAmgmAmAkAjhHgPB6hUBkhSAqApgpjehsBcgZhAhuAYBOBdAuAXAwgpgPBMBwAOB5AjB+AeAYBwANACghgnBTgph3h0B0BMB4h91BgMAJhxAmgSByhshbajBaWPgTgCAYA4ACWGg3g/AyBfgzhnhPBxA1hrhXBshehChChRBQBQAgAeAFBNAtg7h3hHB7h7B7A9BOgHBDgggfhrBEBHA+h9gRB+68hPAfg3huAoAzbAAiAGBZA7B2htAqB7hYgxgwhVgehOVIFFBRgchLhhgAA7BfBthdB9hkhkgkg0hyBlAKhBg3ABAgAZBEg4AcBWAGYIhzgXAEgDA6gmhphwAtgRBYBmBwBwBQAThBA3gvBXn3hrBDBuBcA/BugnANgEBLhKhCgzhwYzhAAiARAohGgHgggJgMg9gMBrA4g+A6BoAUhchug3BBgAhZAIBPBNApAFAFAFh6hZBZAZAWhMgkAkBEgyApb1BOAqBGBIBmATAShAhsgOgHBuhxh4gsBOhph2ArAfBmBLCWgigxgOhZhshtAMBrghhDgHgjgfrIB5ABBCBQAcAgV4gPhcgIBWhVhXgnhBApA4hVBXhngFhTLMgcgOhRgtAMh+hFh2h2gohnAsgshCg+rTAGgNhcgjgvwhAsA0BOA8gV4dBN8qBJh68rgUgoB2BdA6h5hTABhMgWAxhTg9A2guguhJBDB0g4B5hzBmsvhwgwgzgog4g4gDAmAygPBUhWAqANgbg3AmBAI2AOBzhDA8hmBKgxBIAFgAAJhbCuhGgKl7BwhwAmgcAKAigDh2gZAJArABANgDBegx5WgZADgwBGBEAkBegAg2AYg9gwKABtBmhPABBoBZAPgFhHBMAPhmB/B6bdhZhdhdhth1hh8lBGgIBEAUgOhEgKgVgrA0AngaAaBiBIgyB5A3gLgXBcAEhlJjAJgEAsAJAkgqqlhththThrhrhrBVBTAWhZhDhPhThIBWARg+Bn7Sg7A3gDhZAvAphEgegGgehuhpAJAyAJBZQ9gBggAAgAgwBDg3BCAAhkgTh0hkAAhLhthWhTgqAqhJBIAhhmAEgqgqgCgbBiB6h9BD8zhxhmABrOhfAqhMg7ghwiA4BSJNhMgqg4BEhkY8AjBphNATBaA6AtAwBYgEACBBiEBABIAggbg7gmh1AlglAlgahXBmhmB1BgBPBEAmAnwZgogyhVgmgABcgxsNBUAWAAB2B4AHBvA5h3B3ggAQBIAwg+hPhSgqBQCEA/gQBQA2htKUgfAJhFgkhkAYBtAIAMHpgbAasHg0gVAsBhhIgbBVAxAi/MgFBnAZBDBpB2ABgwADBWh3gchuBwBxhrhkB1BbhWAFAP5mBCghgTgnA8AgBV+OgqhSg2g1g3AnBOAcg+hNAYgbhHBRg8g6BjhjhjA2ADgdAdhTg/Aeg/hvA6h1h7A2gChLhKfjAdAxhahigYgMAGAshzg5AAaYh/AGAjh2AChABwBOgwXnBFh/ApAzgT2GBZBGvTBHAjBGhAF0wAgsDi1w4Nza2UkyBUYiA+maxm6g1K32ad3s2Qg8AKlRaBlKD1wKE+rCCjSObAK8iGsFOrC0vR0lTeDV8IUatHu6GO2jkAHgAwgfgC5TYrVsKk2Y3MBRcpBQkgmOUuznY2FqKy0WSymXeX0ASwel0olHI5AwJ1mx0gL1mTXU6XS8Vpdj4hyg8BemDYZHqMFOUyYZTWP1WJ1CN1MTR6gH4cmysjKr2mlCqn3GuR+jDoJHGWlKkU+ajXpgg1yq2FQDFigSEBROwkCKnQwGwjliIU45x2HGyIB4dnM0UmUC+PhaLxefwOdia5zMT3+8wwYCQmEwdi4vQKqHKvigKHoKnc9Rs7GMDUOhhGOnAYjWkzKKRGyxsDUA01QCw0QCOF0uh0OkfRUMMbyRNwTBiCYZwKMIYyZAUkSlBYkxsCYAAHG4qwCBwMQfBYlxsNgsDhLEgwHA8PiPNg1ygP4uywIgMSwK4zSQG46BnFAATDJcL3IHM6DQBsPR3O83j/AsJyGH8w4ZJY5TsN8EAdFojTwJ0AAoA4MgATIMDqAcrQPMEwTDBgVy0LYtiuK8qyrFs6QtCocnLCs8wAGAChOGM+CZJ0HAaoQHQYocBiaHtJT3LEfgCLYIgQNYgw4IQiSaBcAABBEAB/DAXS4HgPAgLUSCzGkPjkIATyXPQoCeNYfR6Do7QGI8Zj+CAHiyCY2SkIQTSSCIyDQCkpDBJQJinMMuAUPgOxGOcpA/AkoTzJwyiYFMiDwJEsShFAURFCwJRVFceQXKQIS8P8STlBgLggAcrAQCQATjIgZA0JgVSxL0OAmKI6CpEc4SuOkeBeOwMRnLQuQhOApDJAImYmD44BPIgAzFMYiR3LcQw4JwqhQAknAMFAxwEEwJwUO4ljCHgmxzNwNQ3EU3ScLYEAACocDePwZgCLI+yFN8jg7FEQTtKMcwrAAOhgHw6SQI4OCmJgjDmNAjj5Gw+wbHkkTpEw7gpFgIAA2sABJEUThEK4QhgIJAQ==`)")
	var_Items:[CellValue,h,1] := var_Items:[CellValue,h,0]
	var_Items:[CellValueFormat,h,1] := exHTML
	var_Items:[CellHAlignment,h,1] := RightAlignment
	var_Items:[CellImage,h,1] := var_Items:[CellImage,h,0]
	var_Items:[CellImages,h,1] := "2,1"
	var_Items:[CellPicture,h,1] := var_Items:[CellPicture,h,0]
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1AddColumn(Column) CLASS MainDialog
	// AddColumn event - Fired after a new column has been added.
	// Column.Def(48) = 2
	// Column.Def(49) = 2

RETURN NIL

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20220102"),SToD("20220108"),nil,"<img>1</img>")
RETURN NIL

local var_Appearance as IAppearance
local var_Chart as IChart
local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Items as IItems
local h,hR as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ImageSize := 32
oDCOCX_Exontrol1:DefaultItemHeight := 36
oDCOCX_Exontrol1:HeaderHeight := oDCOCX_Exontrol1:DefaultItemHeight
oDCOCX_Exontrol1:SortBarHeight := oDCOCX_Exontrol1:DefaultItemHeight
oDCOCX_Exontrol1:Font:Size := 16
oDCOCX_Exontrol1:FilterBarFont:Size := oDCOCX_Exontrol1:Font:Size
oDCOCX_Exontrol1:ToolTipFont:Size := oDCOCX_Exontrol1:Font:Size
oDCOCX_Exontrol1:Indent := 26
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20220101")
	var_Chart:Bars:[Item,"Task"]:Height := 22
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4AEEKAD/hz/EMNh8TIRNGwAjEZAEXjAojKAjMLjABhkaABAk0plUrlktl0vmExmUzmk1m03nE5nU7nk9miAoE+oVDolFo1HpFJpU5h8Sf9OqFNqUOqNUqdPq9VrFWrlbr1QpdhAFAkFis1ntFptVrtkrpszrNvmVxqk3uVtm1kmF3sdBvF/wGBmV+j9BYGHwWJulfxdax2NyFdx2JlV6l9Nw7AAGZymdz2Cy2GxErvWcz9ivlwyV21cuxugwktzGIzmvwtl0+53U5y0a0Wazmmyu/3dCyOMyXHx/J5nIr9q3uyqnBxFN3G46ma4vb7mD2Ng4nZze00fDkHC7t7us2rOX5tguetpHRlmz4HVqnXk1PjHO+CMPo9MBMC+j2vC8j7wS8cFNI4kBo05UIvfCT/NsnsApU+0Fqg/T+oy/kPxC0sEQfErKQK96+w28UWRI8UGvO8sTLS9r2PWmsMJTDTask3CsIbIEQRA3shOXEEAO/GclJ9FEKrrA8FRbKMXRIlb0JxCkjS1LMswhCcvuel0cv26cSMa8Ufx+2sQwhEUoSXOCjSbLcnxjKc7sdKUVyq28NtVI71P9P7JxtQEapjQ6fzfM8zPfNE2PhIsLL63E40slk5y7N89LcyU9SvMb3SdUc6VJLj5VLVLfO/PS9KzNFHUa/0XyBD0dxlS9cxhMlTRSoNXypPErWDPyfNS+MwprRNO0FD8wVVZ1AI08URwVRjtJ1WCn21QkkUrXVLVPQS/XIkFgTxT9iONZ9xVTdq+L1eKg3kkF6Upe68XtfV51/MtrVjBlwYFL1ev8y1/P6/lyzzYl02wntj0RVFmS1Qa+M5as93QxEUW9e993rfmQ2+vy65M/mL1lhl/2bj2ByVduMtNhCJT9hdz41nN14Ld12Z9UjfI/oUAaGseiw6+uFLLhcVabJOS5RqOE0BHlZ5VnEr5fOMs3st+aa/bbRzrJGV51Y0b0DbqaWXZD90hIsPbjWu52+6Wyadpe66hhO+P/XioW5rD8ZbrUZuVg6n1dsE/cXmewu1m9PVwnd35/nueXho/NaJzmjc61W76esuT77eG8pTquy9TwWH8LEzG8RDfFalx3Gcfvna9rvG/cptGLd9tuI6TZOP5Fiqi99vea+X4VRcBq/JZZtVQ9cwSs5lsXE372+a9z7PbfB3VVqHyvMctLto8uob6eV0m/cD6MN2v+T33t6sBut42vdv2bJ8a997x2maFJfK+qArbGJPEKE+1qTflMsIdW/GCJX17KcT6/czr/X+u1g29B7j/4BQfWkkx4zIHisjhPCmE0K4SwtXM+d4BvHRwNZOoBph9IJvPek9d40FoMJxf691jj2ywQQcHEWET4XJwkTszlVqm2GokewxtBT1DpQjRxDN0rUVDNKdC3lb6tzNOwh6upMSSYfv4YBCl/bsn9PxiFCEo7SI6Obc9HeOrnY8x4jtHtdpN4GRbaorhsbu18Pph5CiHymI0RpSXGJ/z2oUOxYxG858AyiI+bfJtuTcG5yelBJyT8okhqFd4a5yxL0rvulYtKCsZiWxWkc1s1cRoxxwhA31DLE0mR9l9HqX8fJgTDmFMVH0MIsRzVYnwnMi1dyzmhLt2kS2pxIiU62Wj5ptQGlSYFakLonTUJNLKaM5WzlffEkuFkk5wTrhVO2eE7G6lJhxFFYUZ55zmn0WuBCD4pzhirFCKkbomsOoIYmZx5p90LoYWGPdD5g0QmJRKYxbZ6zYoVQ2jVGylSak7KSkFH6RSjpHKFuU+YMyNo5SulkC6I0vonTCitMXPoEpVS2H5FQfEqp2R1opIgAEkJISYARTCukOhmPNI5Ex/wzGHUsicMwA1LHgQ90Y/KpoQHAD+pB/R4NzIaMAB9Xaw1gqaAOsh/A/ptIkWUfhGK1kZH8RgH5GqvgArqRmt4AAPrTroRofBGADkqr6Rmu4D7CEaHARiwpJrEEZsXXwlVjyMWRsaRqwdkLGNBABZmytmyMnaINZqyVpLR2ftKAAAdd6h2osbaskdiq4EZtgSmyNcbVWRJNXe3AA7REar3b0stlAAXBtoRmvJGLjEYAHUWsFcwCD/rnaop9aEICMAPdK5hT6xpeuzdOtAgKuJeGfdq6ggEbkTvAP+p9UCHXrvKkcgIA==")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(1,"gBFLBCJwBAEHhEJAAEhABfICg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsOatVqjG5sYjcGC3La9cz3Pq/bpuDCbMxuaK1TrYXr1TTrcofBDldAxXRKDxRDWVhLnYOw9i6XxzjuXprCaOoKB6EwbiCZZCGOdZYlcT4xHmbhMnwNxtn+G5bmqdZ7n4Pw/i+X5zm+dQ9g4CAFjsfAJheOI8HsDoWDWTB/lwSAQkmA5PEgRYoDyDwYFYFoFmGCBmBqBphDgRJ0gOTIYBGRB/lyRh0iSCZbjYWJzgWDwIjYLoLmMCJGDKDJjBgWgqG6YhyhGHRzA2aJ1mCABOAiOJvhCZBJBYRoRmSCQmEqEQimkAZgg8TZnDCV4UkmCUmBKZYJGYWoWCUUhiFMNZckNUh2GENoaGaGZmgmJhqhqZpGGIEx2GYIxSGGGJdggWJth2Z4JmYeoemeSZ2H6H4hGmQhihyTRHGYLg7CiCgmgqIpokoNoOiOaJ4jqAochqaZGgaCxpAoZoaiaaJqEmWIcGgShcnCJwqEqFoR3YOoFlgchflqNouiuawHmWSYqGkWZQhcatzmaOoumuSp2j6L5bBaKo0GQKRnGGCxqiyCwmkqMpsksNpOGUGI7A0ew1G0Rxlg0PptgsZuDG2Sx2l6N5tnYNZZjUDRXDCVo5l2FoymqOpukuNpujubwLjmWY5k0ZwxkaFxYlWdp6j6b5Lnafo/nABQdg2FxcUsY5BkmXAkmeQpckwNRrkKTh8CSHZBk4NwyC4KxxgMDwakOMZDn8GgwnGAo2C4cwthMcwmCcMoHBMHRehwTIghySYNksZwcH4HBMEsHx5hyPItiweYxnwSZEH4Mozn0fR+DMAo7EYJ50gkdZelKdNql2UgJn0GIukwH4HicQRai2GI4mSVpNl0dZGledgNgcYpYDWUx3FsOQi5YV5anaTY3G6W53A2RxylydxFjiaxEFCCgBBAQ==")
	var_Appearance:Add(2,"gBFLBCJwBAEHhEJAAEhABcoFg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEokiEN5NCKfJ9DyTRjnScg1CEYxOBmBpPCgagdgcIZoHoGIFA4AxQkCAxKAgKBwgGSpIBCZhjF2E5UnQPQMiMCJBCIBwxkSQgsgo+JtDKT4ziiQw+k6EwAnsOgLnkHI+yCQ4iEuE4klkPhShEJBpAoPgymOMoaDgHBjFMBgyD0HYTiCZSZhIIIGC4ChiHSew5kwM5omILZPiOBI0hwZw5kodIdA+M4Uj4PxOmMSJ9DuTQzmyZgviceZagaHVfj4awwmaAh2GUIYmCOEZZDaDRDFGdwcg4EwyHMN4LBOaJbCoaZqgKH8qkMfIyD8DozDyfA7A0Coui0OpMmOZJdCsahKg6NooioChwmEMxLEoXJbDUTRXGSUgykyMgQG0GpPHMdI3D4TRCgSeQ0kmaw+lGNAtCOZJVCiT5DhyRQwAqMg0EoDBBGEGAsASC5yiSCw+k4Mp6lWNQuksTpRjMTxDGzJwGmGMpDDKXYTECSAxl6Q5olkK4PgMMIVkASRMBMBgzEkaZEjsNALhIZA6AeQBgk0ZJEgAAJ0CIAgODMNIsD6DRih9uYwFyAwfCUb5ijmbI+gwdxkk8MZMGeMpPCkDxzBiC5MHMPJLDSSROFMLIoBEQogEMFJPnENYQGgE4DCOaJfC7tYkhGTQ0kyWwykuXpMiyRpKjKR4wngM4JmOWJACCdYtHMWw+Eych4nINYLAEYA8AgdAEEsQZajaQoog4GxPiMVIolcdxNG8XZVkmNoRwWRVBlFeFEeAZQJgnFiHgHwcAhjhHgGMSI5xki2CyA4EQsA3i0HkBsLwKRFgAHcPkHopBJBcBeDUYI7xyDOHqKkWo2hLCsDIBIY4qQ5A8DoMMYwOAqCSBGKgU4yB2iDBwIgB4hxQgAAWNgBoAgsBdEcBUQ4sQ9A/HqD0JI8RpBzH2OYVgahLBHFiJQJweQiDhDUE4SAARQAzFsG0EQwA6AOWSBkFgVAIBCHeGERQFQiCQHeFkC4vkiB8DyB4F4QxVDvGMNEOQexMjlBeOAKQiQLgfDA7QEAaRiBdEkH8TI7AZiFBAGYBIABWjYBiGACioQ4C1A+AMMgWhfgxHgPsT4URIB0COKgPgjRwiAB8AYUArxBgCF6J4GY5hrAOCAPAAoGRRCsCIMEXATXfgAF8BMJwURuEQDgD4Q4OBoAeHGFgLIwQrC2D0JoSQ+QvhrHoSgQI8AbDFGID8C4Ah6BQAQAASACwgCYCMAUMARAvCKAiAMCAokeCKBEOAKgCBoDaHuMsEAqwJDiACDURg8R6gPCyDofYWAhgoDIJ4ZAuhoiGAYGgRoQw/A0GMMga4GwxiEDeIYYInATCDBQAoBAwAoDlA0KMBoVRGiDGwDQUYIRsgaGGDgM4LAwDWB8EcIA1APhjEgGQVwgRIgjFIIQHokgZA+CSEkLIKQSjHAwMsCwDAsAEB2ABTIwRwD6A8CMToSxkAxE4HYIw+BsgbBEDAHYBwojCBoIYFgXSjABE4MsHIbQWhlGILQS4UhvBdAUKEEwHgxDAAABQQQUAhgKHiDwE4JS4A7BGLQZwCR4gaBEMUYAqgKApHgGwVAIRNgvBMMQXImwZDtE4I8UIyAZCDCAE8AwrhgAdEEBACQLRCg4FEB4AYtA7CdEiPQMoJAMDNCkOMCAXAFDhH0D0Q4EgfAaGSK4NYzRUj9BuCgAgswOBjB4Fqpw8B2ADAwE4A4Qx2DAE6JIaQPQGhAGKBcIQ5B5gHByKIFARwADbAyKUfgdBKBBGyEcVIAB/ijHoIoSA0gdBNl+OATYERZgBGSDYWIWAUCEGKA4FAhR7CIBtYQGYZg4CMAiKEcAOwkBjHWE8Z4lQgA+DkBoTohwwCeAaMEEgBQCCABgHMRwQRhhMEWFQd4HwZgwDqFESItAbAGEANCpINAzANCCJkK4ah+heFYBURwsQrS2CsMYMoWGBhYDWI0EInQgiApXaOVI1QFDsC8MUNoMBMA1HMJga4eh+BeAWOgNNowGjYzCGAAwax+iJBeBVT4gxoBIAGFsJFBxgBiGKFkKQ7g5DFFQEcAo4AzDDACKEQQLgCiJDYB0MgRBCCQAgQEA==")
	var_Appearance:Add(3,"gBFLBCJwBAEHhEJAAEhABQ4Fg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziaQAGgkNQwCSLIwjNIsBxPFKVQChEYxSjKA40SJNUgyj6CCY+QLIE5PfQgAL9I6eJABCCSQKkYx0HScRiwPBIbAZAYhCZqaKhWgkKI/WBQIABRDVLx5ESiLRtKy7Mq2bpvXBcNxXHalaztO68LxvKyqHb5fJ/PpgL4YHgmC4NQ7EMRwF6rfbyfZ7Xg/ORPTijZ4sdzMHTzJyscx3HqfaBoOaZU5eMLceTUMofHIndxCcasPbsLpOS5LNKsaxmWLYdhFdTxQi6LpvfA8BwXC6JY7heRYRbFbYxRjGNi1TS7G4nGKd5WGuL4UHwI4VkaYxii8V4pgQMgVBQdQ5iCTYGi8T4vlWbJ3nuPg+l+H5AlSCg6ByPBoE8Ap3jqYxhBido5g0OgOGOGI4CsSpCCAcgcAuEosiYN5NHMOJ+D4TpTnSeQ7CEY4uBmBpPhgagdgcIZoHibIEyUBJZDQIJShoCgcCAcoyAQOYYlcZJ1D0DxDCiQgwEiAZMHEMJLFKPJ9D2DoDnidQ4k+Y5QmKEROBkIhKD0JIZDIS4TGUCQuEeEJjnOIg8CuY4RkYNgwGMM5RllGpThDRYIGKZIpCkJFUH0PINyWcQ3CaaZCG+HBnEOTJhD8Tx4GoeQ/GcaZSHOH5nCmQhshoZhihYYwhiYA4RlkNoNEMUZ3ByDjwEsPxOnMaJ9DuDR6F6GYmCmKh0nANtMioP4Gg8aoSiIO5NhodociqaY6GaFYkEyOg8lsNRNTaUgykyMgQG0GpPiONJbD8DpDEyfA6k0KwOkWMQsGsAJU0SagwkoJQJDIPISCQCJTGSUwyGaM4KkmMgtksHpFjAZ4TGCBAbgaSpcksdhNAMIJHHsD5TjSWWMAMOpwjyLwbk6cAz0KRJiDkDYzESCwiggcgcgYIQwCIEINCMCITj6TVxkMXp2j0cQLlCTo7E2F4ymkMZdhMPJHDGHpLAyVg+k4UwrCCSIyByDJ8DuDY8CiWY0kiXAXC6QJwFKGIjCeJpjgyezjlyDw6klHx5myRoMGwZwbkcToTEiew4kwbQfEmUgPkOKJUD4DpTHSHQmgkXI/ASTA1g0XIEDMTBimyfI7jSLYHEiUoPk0Fw/kadAsHGao8A0A5smEMJ2mNyg5gzJZwDgCpChyIZVyIZwFCMJEPASRkBqE+IcHInRcDxA2H4bIsx0AtDsIBpwZwYicD6BscwDwUBgHCIYaIfgtiVH2O4WgUwJjEFeAEQA7y4hMCiBMS4aRdB9A4CYE4LxljyBMHcDItBxinDCLcTYmgejBFQ9UTg9gFBOEmAQTI7A4iZGMGkQAWQ7jYA2HIL8BRAjDG4HcCwARbjZHiNoDw1nLDnGyNINQ+wjCpBMEgcovQUgICQJEcgWRuBvAyJ4d4ugpCUAINcHogxIgnDiM4N4axzD3F2JMTY/hRqYF6FsWIxhYAGGoAALQYgYirBwBEBwpAjBEAAIEIYsA2gOHCMAGgXAACIDmMITAUgFABH0D0I4WwvhNFGMAOIvxRD2GKNcMA8gjAPDCPwBogRPAxA8PgRwZRICYDED8RAXQEghEAN8DIgwIBdB4JYWwMgtiQHoFQKAiRFguFKGwGQhglDsEOVwEQQRkCKBwOIHgSREDRBYHEXQcQdD7GIGARQHRxipBrMobgewDCUCADsEYWAzgMHKHQDQxxsDzA6EMfAeQHB4GQDkUYPA0iECiKoGgRhcDdA2GMQA8AOCjDSPgHI4QnApAKBICwHg1A+BcAwcYsgbjGGQNkCIgRsA6EcBEWANADjsB0B8YYzQQDIGSBcEYZBCCPEkFIHQSgkgZAwG4IwBAbAYGGAgL4Ch4g8BOCQAA2KKC0GcAke4AAXAFCoHkDw4xbBFEcJkE4JRSiEFeJYKQVRMgJHODwX4xAgC/AsIIZAeAHDRG0HYI40RKCLEGDUI4jAghwBWIceA+whCpHMFYZYOQxglDMHMBQGxYjVHiAoBIPgfgHGwPsHYJRSB6A0IERQLhCjJHMA4OQoAoCOACLYGYSx8DpBQIMWQdRnDRH+DsE4fB3CeAmM67kAAXBFEIDYDI7wLBtEoEIfYNwjiUGGJQYQMAjCHEAO0C4zxW29CoCgfIxR9AKA6J8BgUAIhDGMIoJ40hqgwCgKETgnBhhqCGI0AIqgZhGDANQDIlBDCRGkCoJISR0g1BSKQOgfAzBRG0DYHARh4DeDAOwANuw8ApCKKkYg/RPhjBsH0J4yg5hPGWN0GwFBHQBFaDoQIURljFAoB4GgzRVzbBECQFQRQoguHGHANwDRdCKy8CgSIGwhhoDYJYYI1giBICSAEgI=")
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:[CheckImage,Unchecked] := 16777216
oDCOCX_Exontrol1:[CheckImage,Checked] := 33554432
oDCOCX_Exontrol1:[CheckImage,PartialChecked] := 50331648
oDCOCX_Exontrol1:[Background,exSelBackColorFilter] := oDCOCX_Exontrol1:SelBackColor
oDCOCX_Exontrol1:[Background,exSelForeColorFilter] := oDCOCX_Exontrol1:SelForeColor
oDCOCX_Exontrol1:[Background,exBackColorFilter] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,exForeColorFilter] := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x4000000
oDCOCX_Exontrol1:[Background,exHeaderFilterBarActive] := 0x4010101
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := 0x40000ff
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:FilterBarDropDownHeight := 1
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
	var_Column:Width := 128
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowCheckBox
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
	var_Column1:FormatColumn := "1 pos ``"
	var_Column1:AllowSort := false
	var_Column1:Width := 48
	var_Column1:AllowSizing := false
	var_Column1:Alignment := CenterAlignment
	var_Column1:HeaderAlignment := CenterAlignment
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column2:DisplayFilterButton := true
	var_Column2:FilterList := exShowExclude | exShowCheckBox | exSortItemsAsc
	var_Column2:FilterType := exImage
	var_Column2:DisplayExpandButton := true
	var_Column2:ExpandColumns := "1,2,3"
	var_Column2:Width := 128
	var_Column2:HeaderImage := 1
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Images")}
	var_Column3:[Def,exCellHasCheckBox] := true
	var_Column3:Width := 196
	var_Column3:HTMLCaption := "<img>1</img><img>2</img><img>3</img> Images"
oDCOCX_Exontrol1:Columns:[Item,"Pos"]:Position := 3
var_Items := oDCOCX_Exontrol1:Items
	hR := var_Items:AddItem("Root")
	var_Items:[ItemDivider,hR] := 0
	var_Items:[ItemDividerLine,hR] := EmptyLine
	h := var_Items:InsertItem(hR,nil,"Child A")
	var_Items:[CellImage,h,2] := 1
	var_Items:[CellImages,h,3] := "1,2,3"
	var_Items:[CellValue,h,3] := "123"
	h := var_Items:InsertItem(hR,nil,"Child B")
	var_Items:[CellState,h,0] := 1
	var_Items:[CellImage,h,2] := 3
	var_Items:[CellImages,h,3] := "2,3,1"
	var_Items:[CellValue,h,3] := "231"
	var_Items:[SelectItem,h] := true
	h := var_Items:InsertItem(hR,nil,"Child C")
	var_Items:[CellImage,h,2] := 2
	var_Items:[CellState,h,3] := 1
	var_Items:[CellValue,h,3] := "312"
	var_Items:[CellImages,h,3] := "3,1,2"
	var_Items:[ExpandItem,hR] := true
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1AddColumn(Column) CLASS MainDialog
	// AddColumn event - Fired after a new column has been added.
	// Column.Def(48) = 2
	// Column.Def(49) = 2

RETURN NIL

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	oDCOCX_Exontrol1:Items:AddBar(Item,"Task",SToD("20220102"),SToD("20220108"),nil,"<img>1</img>")
RETURN NIL

local var_Appearance as IAppearance
local var_Column,var_Column1,var_Column2,var_Column3 as IColumn
local var_Items as IItems
local h,hR as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Chart:FirstVisibleDate := SToD("20220101")
oDCOCX_Exontrol1:ImageSize := 16
oDCOCX_Exontrol1:Images("gBJJgBAIDAAEg4ACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjMLjABAAgjUYkUnlUrlktl0vmExmUzmk1m03nE5nU7nkrQCAntBoVDolFo1HoM/ADAplLptImdMYFOqdSqlXq1QrVbrlGpVWsFNrNdnNjsk7pQAtNroFnt0sh8Yr9iulTuNxs1Eu8OiT/vsnsNVutXlk/oGGtVKxGLxWNtsZtN8iUYuNvy0Zvd+xNYwdwvl4p870GCqc8vOeuVttmp1knyOayWVy+WzN/ze1wOElenm+12WUz/Bv2/3UyyWrzeutux2GSyGP2dQ33C1ur3GD3M4zUNzHdlWjq/E3nGzVpjWv4HA7fRy/Tv2IrN8rPW6nZ3ve7mUlfu20Z8acvQyb+vY9jasYoDwMm+LytVBDqKG3z8O3Cb8P+mkAuY9cCQ2uL4KaxDKvkp8RNLEjqugnrwQo/UWPzFyeQw5sNLZFENrI4kOqU66pw8uzmOKvTqNqjULJvGL1JO48GtTGsbLdEL3scxLlyiw8dQeoUVxdLTtyKmUjwGlslRPJsnK1HbAKbKCrsQo8uQk/CeP44iaR/ATnTNPLvyxPU+z9P9AUDQVBowiofJXQ6Oo+kKMpIkjztE4TKn4P6JowfgPnwD5/nAjB8AOeAPo0eAA1IAFH07UhAIMpYAVIYFHqBUhwVjV1S1EtQAHxW65V0AZwAeuQAnwB5gAPYViEDVhwAHTQBkCjB4gOhwDmCyhH0sACAg==")
var_Appearance := oDCOCX_Exontrol1:VisualAppearance
	var_Appearance:Add(4,"gBFLBCJwBAEHhEJAAEhABUYCg6AADACAxRDgMQBQKAAzQFAYbhkGCGAAGMZxRgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDGAkRRdDSOYDmGQYDiCIoRShOMIjHLUXxtDaIZwhEAoJb+RgAUY/cTzaAEUwHHiTKInaCQShsFYJUJAdRURQ9EwvCIZBpEWwLChENQwWLCNj2TScBwjCyqbale45ViqdoDU5EUiXJJ8ZxnECfYyrGjaMpCeKBUrGYTVRBIMxLLSia5oeJqMrnBpNVrIUgXCAGFwHK6BcauXIIDp6XoWWRbAAWDpVVzNNC3YzkCIceADHKiXxmVz4JLdGZ1QTGID2XaYaxWK4oZjsVSc4KDHbETbHFi9Fo3NaaxGisew+GYc4HlCR5NAAAIIEkQJSGMOgdE4RhYDwJJsAaAYQgmPpolCWgSCiBJzjcEIAkQXIBm8d5UhOQgCDUIBDDJDhgggJgKgKYJIDSVoDk8KBFF4OohEMZgWDsYYDj4GoGmGSB2B6B5iAiBgYDsYRjGSbIJo4RgqDuIpIAoLoLmMCJGDKDJjJiLA7xqUAAgGTwYnYPoPmQCQGEKEJkEkFg9gGY44BoRoSmSSQ2EKEggHgRhShSZRJFYVoVmWCRmFKFAgGOTheheZgJgYYoYmYSYWGaF4lkMMJ0hqZpJjYbobmcCZGHKHJmjmJh0h2Z4JmYcIaE8WZ2H6H5oAoBoCiCaBKBYfdjGoJoKiKaJKDaDojmkChGgmIgpCoVoWiWaJZiSd4mmmSh2h6J5qAqBoiiiaY5iSeIpmqComiqKpqkqNouiuah6hqMIsmsSpWiuGhP1kOoumuSp2j6L5sAsBo54gKwWkaMZsgsJpKjKbJLDaRYxYWRpSjSbIZiSe41m2CxmlqNptksdpejebR5iSfI4m4S4W16boLiaao6m5fJ9jubwLkaco8m8S5WnaPZunuOp4j6b5Lnac4SA0PAGlgP4wEwFwGkGcIMCcCpCnCCxiA8NYAAmMJfkSbhFCcFpFnGDBnBqRpUhuEwTDeZ5lHCfw6HIQxLCaAxygyJwqgGcATE4FA6hWY4tjEAAQBAgIA==")
oDCOCX_Exontrol1:BackColorHeader := 0x4c6c6c6
oDCOCX_Exontrol1:SelBackColor := 0x4000000
oDCOCX_Exontrol1:SelForeColor := RGB(0,0,1)
oDCOCX_Exontrol1:[Background,exSelBackColorFilter] := oDCOCX_Exontrol1:SelBackColor
oDCOCX_Exontrol1:[Background,exSelForeColorFilter] := oDCOCX_Exontrol1:SelForeColor
oDCOCX_Exontrol1:[Background,exBackColorFilter] := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:[Background,exForeColorFilter] := oDCOCX_Exontrol1:ForeColor
oDCOCX_Exontrol1:[Background,exCursorHoverColumn] := -1
oDCOCX_Exontrol1:[Background,exHeaderFilterBarButton] := 0x4000000
oDCOCX_Exontrol1:[Background,exHeaderFilterBarActive] := 0x4010101
oDCOCX_Exontrol1:[Background,exFooterFilterBarButton] := 0x40000ff
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:ShowFocusRect := false
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:AllowGroupBy := true
oDCOCX_Exontrol1:BackColorSortBar := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:BackColorLevelHeader := oDCOCX_Exontrol1:BackColor
oDCOCX_Exontrol1:FilterBarDropDownHeight := 1
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Check")}
	var_Column:[Def,exCellHasCheckBox] := true
	var_Column:PartialCheck := true
	var_Column:Width := 128
	var_Column:DisplayFilterButton := true
	var_Column:FilterList := exShowCheckBox
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
	var_Column1:FormatColumn := "1 pos ``"
	var_Column1:AllowSort := false
	var_Column1:Width := 48
	var_Column1:AllowSizing := false
	var_Column1:Alignment := CenterAlignment
	var_Column1:HeaderAlignment := CenterAlignment
var_Column2 := IColumn{oDCOCX_Exontrol1:Columns:Add("Image")}
	var_Column2:DisplayFilterButton := true
	var_Column2:FilterList := exShowExclude | exShowCheckBox | exSortItemsAsc
	var_Column2:FilterType := exImage
	var_Column2:DisplayExpandButton := true
	var_Column2:ExpandColumns := "1,2,3"
	var_Column2:Width := 128
	var_Column2:HeaderImage := 1
var_Column3 := IColumn{oDCOCX_Exontrol1:Columns:Add("Images")}
	var_Column3:[Def,exCellHasCheckBox] := true
	var_Column3:Width := 196
	var_Column3:HTMLCaption := "<img>1</img><img>2</img><img>3</img> Images"
oDCOCX_Exontrol1:Columns:[Item,"Pos"]:Position := 3
var_Items := oDCOCX_Exontrol1:Items
	hR := var_Items:AddItem("Root")
	var_Items:[ItemDivider,hR] := 0
	var_Items:[ItemDividerLine,hR] := EmptyLine
	h := var_Items:InsertItem(hR,nil,"Child A")
	var_Items:[CellImage,h,2] := 1
	var_Items:[CellImages,h,3] := "1,2,3"
	var_Items:[CellValue,h,3] := "123"
	h := var_Items:InsertItem(hR,nil,"Child B")
	var_Items:[CellState,h,0] := 1
	var_Items:[CellImage,h,2] := 3
	var_Items:[CellImages,h,3] := "2,3,1"
	var_Items:[CellValue,h,3] := "231"
	var_Items:[SelectItem,h] := true
	h := var_Items:InsertItem(hR,nil,"Child C")
	var_Items:[CellImage,h,2] := 2
	var_Items:[CellState,h,3] := 1
	var_Items:[CellValue,h,3] := "312"
	var_Items:[CellImages,h,3] := "3,1,2"
	var_Items:[ExpandItem,hR] := true
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Clip")
oDCOCX_Exontrol1:ScrollBySingleLine := true
oDCOCX_Exontrol1:DrawGridLines := exRowLines
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:AllowResizeChart := exAllowResizeChartMiddle | exAllowResizeChartHeader
	var_Chart:DrawGridLines := exRowLines
	var_Chart:FirstVisibleDate := SToD("20001223")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 216
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Pattern := exPatternBox
		var_Bar:Color := RGB(164,164,164)
		var_Bar:StartColor := RGB(240,240,240)
		var_Bar:EndColor := var_Bar:StartColor
		var_Bar:OverlaidType := exOverlaidBarsIncludeCaption | exOverlaidBarsStackAutoArrange | exOverlaidBarsStack
		var_Bar:Height := 15
	var_Chart:MinUnitWidth := var_Chart:UnitWidth
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("no clip, (0-2)")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "no clip, right(<b>2</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 2
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "no clip, center(<b>1</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 1
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010104"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "no clip, left(<b>0</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 0
	h := var_Items:AddItem("clip, inside (3-5)")
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "clip, inside, right(<b>5</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 5
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "clip, inside, center(<b>4</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 4
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "clip, inside, left(<b>3</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 3
	h := var_Items:AddItem("hide on min width, clip if not fit, inside (6-8)")
	var_Items:AddBar(h,"Task",SToD("20001226"),SToD("20010110"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "hide on min width, clip if not fit, inside, right(<b>8</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 8
	var_Items:AddBar(h,"Task",SToD("20001226"),SToD("20010110"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "hide on min width, clip if not fit, inside, center(<b>7</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 7
	var_Items:AddBar(h,"Task",SToD("20001226"),SToD("20010110"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "hide on min width, clip if not fit, inside, left(<b>6</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 6
	h := var_Items:AddItem("hide if not fit, no clip, inside (9-11)")
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "hide if not fit, no clip, inside, right(<b>11</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 11
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "hide if not fit, no clip, center(<b>10</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 10
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "hide if not fit, no clip, inside, left(<b>9</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 9
	h := var_Items:AddItem("no clip, inside, outside (12-14)")
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "no clip, inside, outside, right(<b>14</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 14
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "no clip, inside, outside, center(<b>13</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 13
	var_Items:AddBar(h,"Task",SToD("20001228"),SToD("20010108"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "no clip, inside, outside, left(<b>12</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 12
	h := var_Items:AddItem("no clip, outside (16-18)")
	var_Items:AddBar(h,"Task",SToD("20001230"),SToD("20010106"),"K1",nil)
	var_Items:[ItemBar,h,"K1",exBarExtraCaption] := "no clip, outside, right(<b>18</b>)"
	var_Items:[ItemBar,h,"K1",exBarExtraCaptionHAlign] := 18
	var_Items:AddBar(h,"Task",SToD("20001230"),SToD("20010106"),"K2",nil)
	var_Items:[ItemBar,h,"K2",exBarExtraCaption] := "no clip, outside, center(<b>17</b>)"
	var_Items:[ItemBar,h,"K2",exBarExtraCaptionHAlign] := 17
	var_Items:AddBar(h,"Task",SToD("20001230"),SToD("20010106"),"K3",nil)
	var_Items:[ItemBar,h,"K3",exBarExtraCaption] := "no clip, outside, left(<b>16</b>)"
	var_Items:[ItemBar,h,"K3",exBarExtraCaptionHAlign] := 16
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1AddColumn(Column) CLASS MainDialog
	// AddColumn event - Fired after a new column has been added.

RETURN NIL

METHOD OCX_Exontrol1AddItem(Item) CLASS MainDialog
	// AddItem event - Occurs after a new Item has been inserted to Items collection.
	local var_Items as IItems
	var_Items := oDCOCX_Exontrol1:Items
		var_Items:AddBar(Item,"Task",var_Items:[CellValue,Item,2],var_Items:[CellValue,Item,4],nil,nil)
RETURN NIL

local var_Chart as IChart
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("19940804")
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 290
oDCOCX_Exontrol1:Items:AllowCellValueToItemBar := true
oDCOCX_Exontrol1:Columns:[Item,2]:[Def,exCellValueToItemBarProperty] := 1
oDCOCX_Exontrol1:Columns:[Item,4]:[Def,exCellValueToItemBarProperty] := 2
oDCOCX_Exontrol1:Columns:[Item,"ShipVia"]:Position := 2
oDCOCX_Exontrol1:EndUpdate()

local var_Column as IColumn
local rs as Recordset
local var_PrivDBEngine as _DBEngine

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DefaultItemHeight := 48
// Generate Source for 'Microsoft DAO 3.6 Object Library(dao360.dll)' server from Tools\Automation Server...
var_PrivDBEngine := _DBEngine{"DAO.DBEngine.36"}
	rs := var_PrivDBEngine:OpenDatabase("C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.mdb",nil,nil,nil):OpenRecordset("Employees",nil,nil,nil)
oDCOCX_Exontrol1:DataSource := Recordset{rs}
var_Column := oDCOCX_Exontrol1:Columns:[Item,"Photo"]
	var_Column:Position := 1
	var_Column:Width := 128
oDCOCX_Exontrol1:EndUpdate()

local var_Column as IColumn
local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
oDCOCX_Exontrol1:DrawGridLines := exAllLines
oDCOCX_Exontrol1:GridLineStyle := exGridLinesGeometric
oDCOCX_Exontrol1:DefaultItemHeight := 48
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADODB.Recordset"}
	rs:Open("Employees","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
var_Column := oDCOCX_Exontrol1:Columns:[Item,"Photo"]
	var_Column:Position := 1
	var_Column:Width := 128
oDCOCX_Exontrol1:EndUpdate()

local rs as _Recordset

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:ColumnAutoResize := false
// Generate Source for 'Microsoft ActiveX Data Objects 6.1 Library(msado15.dll)' server from Tools\Automation Server...
rs := _Recordset{"ADOR.Recordset"}
	rs:Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,3,0)
oDCOCX_Exontrol1:DataSource := _Recordset{rs}
oDCOCX_Exontrol1:SortBarVisible := true
oDCOCX_Exontrol1:Layout := "singlesort=" + CHR(34) + "C1:1" + CHR(34) + ""
oDCOCX_Exontrol1:EndUpdate()

METHOD OCX_Exontrol1BeforeExpandItem(Item,Cancel) CLASS MainDialog
	// BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
	oDCOCX_Exontrol1:Refresh()
RETURN NIL

METHOD OCX_Exontrol1Event(EventID) CLASS MainDialog
	// Event event - Notifies the application once the control fires an event.
	OutputDebugString(String2Psz( AsString(oDCOCX_Exontrol1:[EventParam,-2]) ))
RETURN NIL

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h,h1 as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Indent := 16
oDCOCX_Exontrol1:LinesAtRoot := exLinesAtRoot
oDCOCX_Exontrol1:HasLines := exSolidLine
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:Columns:Add("Tasks")
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:FirstVisibleDate := SToD("20060920")
	var_Chart:ShowCollapsedBars := true
	var_Chart:LevelCount := 2
	var_Chart:[PaneWidth,false] := 128
	var_Chart:DrawGridLines := exHLines
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:OverlaidType := exOverlaidBarsStack
		var_Bar:Color := RGB(0,0,0)
		var_Bar:StartColor := RGB(196,196,196)
		var_Bar:EndColor := RGB(196,196,196)
		var_Bar:Pattern := exPatternBox
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Project 1")
	h1 := var_Items:InsertItem(h,nil,"Resources")
	var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060925"),"A",nil)
	var_Items:AddBar(h1,"Task",SToD("20060924"),SToD("20060928"),"B",nil)
	var_Items:AddBar(h1,"Task",SToD("20060927"),SToD("20060929"),"C",nil)
	h := var_Items:AddItem("Project 2")
	h1 := var_Items:InsertItem(h,nil,"Resources")
	var_Items:AddBar(h1,"Task",SToD("20060921"),SToD("20060925"),"A",nil)
	var_Items:AddBar(h1,"Task",SToD("20060924"),SToD("20060928"),"B",nil)
	var_Items:AddBar(h1,"Task",SToD("20060927"),SToD("20060929"),"C",nil)
	var_Items:[ExpandItem,h] := true
oDCOCX_Exontrol1:EndUpdate()

local var_Column,var_Column1 as IColumn
local var_Items as IItems

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Default")
var_Column := IColumn{oDCOCX_Exontrol1:Columns:Add("Pos")}
	var_Column:FormatColumn := "1 pos 'A-Z'"
	var_Column:Position := 0
	var_Column:AllowSizing := false
	var_Column:Width := 32
	var_Column:Enabled := false
var_Column1 := IColumn{oDCOCX_Exontrol1:Columns:Add("Index")}
	var_Column1:FormatColumn := "0 index ''"
	var_Column1:AllowSizing := false
	var_Column1:Width := 32
	var_Column1:Enabled := false
var_Items := oDCOCX_Exontrol1:Items
	var_Items:AddItem("A")
	var_Items:AddItem("A")
	var_Items:AddItem("A")
	OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:[FindItem,"A",0,0],1] ))
	OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:[FindItem,"A",0,1],1] ))
	OutputDebugString(String2Psz( var_Items:[CellCaption,var_Items:[FindItem,"A",0,2],1] ))
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Machines")
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exHLines
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Pattern := exPatternSolid
		var_Bar:[Def,exBarHAlignCaption] := 18
		var_Bar:OverlaidType := exOverlaidBarsCascade
		var_Bar:HistogramPattern := var_Bar:Pattern
		var_Bar:HistogramType := exHistCumulative
		var_Bar:HistogramCumulativeOriginalColorBars := exKeepOriginalColor
		var_Bar:HistogramItems := -4
		var_Bar:HistogramRulerLinesColor := RGB(102,102,102)
		var_Bar:[Def,exBarToolTip] := "<%=%3%> <fgcolor 666666><font ;6><off 4><%=%C0%>"
		var_Bar:[Def,exBarHistLegend] := "<fgcolor=666666><%=lower(%3)%>"
	var_Chart:HistogramHeight := 64
	var_Chart:HistogramVisible := true
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Machine 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010109"),1,"Bill")
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010110"),2,"Laura")
	var_Items:[ItemBar,h,2,exBarColor] := 16776960
	h := var_Items:AddItem("Machine 2")
	var_Items:AddBar(h,"Task",SToD("20010112"),SToD("20010119"),3,"Bill")
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),4,"Laura")
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010114"),5,"Bill")
	var_Items:[ItemBar,h,4,exBarColor] := 16776960
	var_Items:AddBar(var_Items:AddItem("Machine 3"),"Task",SToD("20010102"),SToD("20010109"),6,"Bill")
oDCOCX_Exontrol1:EndUpdate()

local var_Bar as IBar
local var_Chart as IChart
local var_Items as IItems
local h as USUAL

oDCOCX_Exontrol1:BeginUpdate()
oDCOCX_Exontrol1:Columns:Add("Machines")
oDCOCX_Exontrol1:DrawGridLines := exHLines
oDCOCX_Exontrol1:HeaderAppearance := Etched
oDCOCX_Exontrol1:HeaderVisible := exHeaderVisibleExtendLevels
var_Chart := oDCOCX_Exontrol1:Chart
	var_Chart:DrawGridLines := exHLines
	var_Chart:[PaneWidth,false] := 128
	var_Chart:FirstVisibleDate := SToD("20010101")
	var_Chart:LevelCount := 2
	var_Bar := var_Chart:Bars:[Item,"Task"]
		var_Bar:Pattern := exPatternSolid
		var_Bar:[Def,exBarHAlignCaption] := 18
		var_Bar:OverlaidType := exOverlaidBarsCascade
		var_Bar:HistogramPattern := var_Bar:Pattern
		var_Bar:HistogramType := exHistCumulative
		var_Bar:HistogramCumulativeOriginalColorBars := exKeepOriginalColor
		var_Bar:HistogramItems := -4
		var_Bar:[Def,exBarCaption] := "Bill"
		var_Bar:[Def,exBarHistLegend] := "B(ill)"
	var_Chart:HistogramHeight := 64
	var_Chart:HistogramVisible := true
var_Items := oDCOCX_Exontrol1:Items
	h := var_Items:AddItem("Machine 1")
	var_Items:AddBar(h,"Task",SToD("20010102"),SToD("20010109"),1,nil)
	var_Items:AddBar(h,"Task",SToD("20010103"),SToD("20010110"),2,"Laura")
	var_Items:[ItemBar,h,2,exBarColor] := 16776960
	var_Items:[ItemBar,h,2,exBarHistLegend] := "L(aura)"
	h := var_Items:AddItem("Machine 2")
	var_Items:AddBar(h,"Task",SToD("20010112"),SToD("20010119"),3,nil)
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010113"),4,"Laura")
	var_Items:AddBar(h,"Task",SToD("20010110"),SToD("20010114"),5,nil)
	var_Items:[ItemBar,h,4,exBarColor] := 16776960
	var_Items:[ItemBar,h,4,exBarHistLegend] := "L(aura)"
	var_Items:AddBar(var_Items:AddItem("Machine 3"),"Task",SToD("20010102"),SToD("20010109"),6,nil)
oDCOCX_Exontrol1:EndUpdate()